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~REM a 

IDENTIFICATION 
PRODUCT CODE: AC-E779C-MC 
PRODUCT NAME: CZDRLCO DR11 GEN NPR INTFC 
DATE RELEASED: OCTOBER, 1980 
MAINTAINER: DIAGNOSTIC ENGINEERING 
AUTHOR: DAN P. MILLEVILLE 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT COPROPRATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1977, 1980 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 


SEQ 0001 
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SEQ 0002 
34 HISTORY 
35 
3 REV DATE NOTE 
38 a 1977 INITIAL RELEASE 
39 8 1980 CORRECTION OF CODING ERRORS 
40 C 1980 11/05 PROBLEM AND ENDLESS LOOP PROBLEM FIXED 
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SEQ 0004 
$6 10.0 SUBROUTINE DESCRIPTIONS 
88 10.1 READ 
89 10.2 ERCAPT 
90 10.3 FTCAPT 
91 10.4 FIXTBL 
92 10.5 LODBUF 
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116 11.3 EXPAT1 
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1.0 ABSTRACT 


THIS DIAGNOSTIC PROGRAM IS CAPABLE OF TESTING THE DR11-W 
NPR GENERAL INTERFACE IN DR11-W OR DR11-B MODE. 


IT HAS THE FOLLOWING FEATURES: 


1. APT11/XXDP COMPATIBLE 

2. MULTIPLE BOARD TESTING USING TABLE CREATED BY USER 

3. BURST DATA LATE CALIBRATION 

4. INDEPENDENT "LOGIC WRAP-AROUND’ AND ‘CABLE WRAP-AROUND’ TESTING 
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SEQ 0006 
128 2.0 REQUIREMENTS 
i 2.1 EQUIPMENT 
132 : 1. PDP11 STANDARD COMPUTER 
133 2. 1/0 TYPE TERMINAL 
134 3. 1-16 DRI1-W MODULE (S) 
135 4° LOOP BACK CABLE (NEEDED 10 FULLY CHECK THE MODULE WITH THIS 
136 DIAGNOSTIC) 
138 2.2 HARDWARE SWITCH SETTINGS 
140 THE ADDRESS SELECTION SWITCH, £120, IS SET UP AS BELOW: 
20 RSLS LASS RR Tres 
148 PS ¢ 2.4 8 8.8) Oct Oh 28. ts 6 
145 ADDRESS BITS: Tier Se ae ie ie er Vea i ee 
147 EXAMPLE: DEVICE ADDRESS 172410, SWITCHES 1, 3, 5 & 10 SHOULD BE 
148 OFF, AND ALL OTHERS SHOULD BE ON. 
150 THE £105 SWITCHPACK: THIS SWITCHPACK MUST BE IN THE FOLLOWING 
151 POSITIONS TO RUN THIS DIAGNOSTIC: 
153 1 - OFF 
154 2 - ON 
155 3 = OFF 
156 4 - OFF 
137 5 - ON FOR -w MODE, OFF FOR -B MODE 
139 SINGLE SWIICH NEAR THE E105 SWITCHPACK: 
| 
161 2 CYCLE MODE - SWITCH HANDLE TOWARDS PACK £105 
16¢ N CYCLE MODE - SWITCH HANDLE TOWARDS E94 
164 THE VECTOR SELECTION SWITCH, E15, IS SET UP AS BELOW: 
166 caeenwntnnnenenenenenan 
167 ZEETECTEL Ee Tale 
0B amen wenn nnn nnnenennnen== 
169 VECTOR BITS: - 213-8) $2 bo Fad 
171 EXAMPLE: VECTOR ADDRESS 300, SWITCHES 6 & 7 SHOULD BE 
172 OFF, AND ALL OTHERS SHOULD BE ON. 
174 2.3 STORAGE 
176 THE PROGRAM USES APPROX. 52200 WORDS OF MEMORY 
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SEQ 0007 
177 3.0 TESTING MODE 
179 3.1 DEFINITION 
181 THE DR11-W DIAGNOSTIC ACCOMPLISHES DEVICE REGISTER BIT TESTS, 
182 INTERNAL "'LOGIC'’ WRAP-AROUND TESTS, AND WITH THE BCO6-R WRAP- 
183 AROUND CABLE IN J1 AND J2, PROVIDES EXTERNAL "‘CABLE'’ WRAP-AROUND 
184 TESTS. IN ORDER TO FULLY CHECK THE MODULE, THE DIAGNOSTIC MUST 
185 BE RUN WITH AND WITHOUT THE WRAPAROUND CABLE IN PLACE, RESTARTING 
186 AT ADDRESS 200 EACH TIME, OR EDITING TO CHANGE THE CABLE MODE 
187 (SEE SECT. 7.1.1) 
189 THERE ARE ONLY TWO LEGAL MODES OF OPERATION OF THIS DIAGNOSTIC: 
191 1. DR11 WITH NO CABLE(S) IN USER SLOTS. 
192 2° DR11 WITH WRAP-AROUND CABLE FROM J1 TO J2. 
194 THIS DIAGNOSTIC IS NOT MEANT TO BE RUN IN THE FOLLOWING MODES: 
196 1. DR11 CONNECTED TO ANOTHER DR11. 
197 2° DR11 CONNECTED TO A USER DEVICE. 
199 3.2 IMPLEMENTATION 
201 DEVICE REGISTER BIT TESTS AND INTERNAL LOGIC WRAP-AROUND TESTS 
202 ARE EXECUTED UNCONDITIONALLY. CABLE WRAP-AROUND TESTS ARE 
203 EXECUTED ONLY IF THE BCO6-R CABLE IS IN PLACE BETWEEN THE J1 
204 AND J2 CONNECTORS ON THE DR11-W UNDER TEST. THE PRESENCE OF 
205 THIS CABLE IS "'SIZED'' FOR AUTOMATICALLY FOR EACH BOARD WHEN 
206 THE DIAGNOSTIC IS STARTED AT ADDRESS 200. THE USER *MUST® 
207 VERIFY THAT THE “SIZING: OCCURRED CORRECTLY BY OBSERVING THE 
208 OUTPUT OF IHE PROGRAM WHEN STARTING AT 200. (REFER TO SECTION 
209 5.1 FOR EXAMPLE) IF THIS SUMMARY IS NOT NEEDED, RAISE BIT 12 
210 OF THE SWITCH REGISTER BEFORE PROGRAM EXECUTION. 
512 IN MANUAL MODE (STARTING ADDRESS = 204), THE USER CAN FORCE 
213 UNIFORM TESTING PARAMETERS FOR ALL MODULES THROUGH USE OF THE 
214 EDIT FUNCTION (REFER TO SECTION 7.1.1). 
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4.0 LOAD AND START PROCEDURE 


1. LOAD PROGRAM INTO MEMORY. 

2. LOAD STARTING ADDRESS 200, 204 OR 210. 
RESPECTIVELY) 

3. PRESS START. 


(SEE SECTS. 7.0. Teds FoI 
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5.0 
5.1 


SWITCH REGISTER 


OPTIONS 
SWITCH 
Sw15=1 


Swi4=1 


Sw15=1 


Swi2=1 


SW11=1 


Swi0=1 


SWO9=1 


OCTAL 
100000 


040000 


020000 


010000 


004000 


002000 


001000 


FUNCTION 
HALT ON ERROR 


THIS WILL CAUSE THE PROCESSOR TO HALT AT THE 
NEXT ERROR. 


LOOP ON TEST 


THIS WILL CAUSE THE PROCESSOR TO LOOP ON THE 
TEST IT IS THEN EXECUTING. 


INHIBIT ERROR TYPEOUTS 
THIS WILL CAUSE ERROR TYFEOUTS TO BE INHIBITED. 
DO NOT PRINT BOARD CONFIGURATION 
THIS WILL CAUSE THE LIST OF ALL BOARDS AND 
THEIR SETUP DATA THAT THE AUTOSIZE ROUTINE 
FOUND TO NOT PRINT. 
TEST NUMBER TRACE ENABLING 


THIS ENABLES THE PRINTING OF THE FOLLOWING AT 
THE BEGINNING OF EACH TEST: 


T # Xx 


THIS CAN BE USED WHEN AN UNEXPECTED TRAP OCCURS 
IN A TEST, BUT LOOPING ON THAT TEST RESULTS IN 
NO ERROR(S). 


BELL ON ERROR 


THIS FUNCTION CAUSES THE TERMINAL BELL TO SOUND 
WHEN AN ERROR OCCURS. THIS CAN BE USED IN CON- 
JUNCTION WITH LOOP-ON-TEST AND INHIBIT-ERROR- 
TYPEOUTS TO SEE IF A LOOSE CONNECTION MAY BE 
CAUSING THE ERROR. 


LOOP ON ERROR 


THIS FUNCTION WILL CAUSE LOOPING ON ERROR. IT 
CAN BE USED IN CONJUNCTION WITH INHIBI T-ERROR- 
TYPEOUTS WHEN USING A SCOPE TO FIND A FAULTY 
COMPONENT. 


SEQ 0009 
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Sw08=1 


$w07=1 


000400 


000200 


SEQ 0010 
LOOP ON TEST IN SWR<6:0> 


FUNCTION CAUSES THE CPU TO JUMP TO THE 

IN BITS <6:0> AND EXECUTE THAT TEST UNCON- 
NALY. CHANGE THE SWITCH REGISTER TO EXIT. 
EATE A TIGHTER LOOP ON THAT PARTICULAR 

SET LOOP-ON-TEST (40000) IN THE SWR ONCE 
EST IS EXECUTING. 


INHIBIT MULTIPLE ERROR TYPEOUTS 


ON ERROR CALLS IN LOOPS WHERE MULTIPLE ERRORS 
ARE POSSIBLE, THIS FUNCTION INHIBITS ANY ADDI- 
ivetes THAT MAY PRINT IN THAT LOOP. 

X LE: 


MULTIPLE TYPEOUTS ENABLED: 


CERROR MESSAGE] 

CDATA HEADER) 

XXXAXKXK MAXXKKM KKM KKK 
XXX MAXXKK AKAMA K OKA 
200000% 000000 00000%  OOOXX 
XXX AXAAAXXK AAAAAK — AAAKAX 
XXXAMK  AXMAAKK XXAKMK AMAA 


>>>>>>NOTE<<<<<< 
A MAXIMUM OF 17 (OCTAL) DATA LINES WILL 
PRINT. IF THERE ARE MORE, A MESSAGE WILL 
PRINT AS FOLLOWS: 


THERE ARE STILL MORE ERRORS, BUT WILL NOT BE PRINTED. 
ERRORS WILL STILL BE COUNTED AND PRINTED AT THE EOP. 


MULTIPLE TYPEOUTS DISABLED: 


CERROR MESSAGE) 
CDATA HEADER] 
0.0.0.0.) Gime 0.0.0.0.0 dime 0.0.0.0 9 Gime 2.2.2.0.0.' 


(NO MORE DATA WILL PRINT) THE TOTAL NUMBER 
OF ERRORS WILL STILL BE TOTALED AND PRINTED 
AT THE EOP OR EOD. 
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5.2 


3.3 


5.4 


SEQ 0011 


SOFTWARE SWITCH REGISTER 


IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST, OR 
IF ONE DOES AND IT CONTAINS ‘=1' (177777) THEN THE 
SOFTWARE SWITCH REGISTER (LOCATION 176) IS USED, 
WHICH ALLOWS THE USER THE SAME SWITCH OPTIONS AS THE 
HARDWARE SWITCH REGISTER. 


LOADING THE SOFTWARE SWITCH REGISTER 


THIS PROGRAM SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE 
SWITCH REGISTER (LOCATION 176) FROM THE TTY. THIS IS ACCOM- 
PLISHED AS FOLLOWS: 


1. TYPE CONTROL G <*G> REPEATEDLY, AS RESETS AND INITS DONE 
IN THE DIAGNOSTIC MAY CLEAR THE CHARACTER BEFORE THE 
CHARACTER IS RECOGNIZED. ONCE INPUT IS RECOGNIZED, THIS 
~ eo TTY TO ENTER DATA INTO LOCATION 176 AT THE END 


2. THE MACHINE WILL TYPE: SWR=XXXXXX NEW=  (XXXXXX IS THE OCTAL 
CONTENTS OF THE SOFTWARE SWITCH REGISTER) 


3. AFTER THE “NEW=" THE OPERATOR CAN DO ONE OF THE FOLLOWING: 


A. TYPE A NUMBER TO BE LOADED INTO LOCATION 176 FOLLOWED BY A <CR> 
VILL BE ALLOUED).° O-7 WILL BE ACCEPTED AND ONLY 6 NUMBERS 
WIL 
IF A <CR> IS THE FIRST ENTRY THE SOFTWARE SWITCH REGISTER WILL 
NOT BE CHANGED. 


B. IF A CONTROL U <*U> IS DEPRESSED, THE PROGRAM WILL GO BACK 
TO STEP 2. 


PROGRAM AND/OR OPERATOR ACTION 


LOADING AND STARTING AT 200 WITH ALL SWITCHES DOWN 

1S NORMAL LOGIC TESTING. IF AN ERROR IS DETECTED 

THERE WILL BE A PRINTOUT. WHEN AN ERROR IS DETECTED 

AND IT IS NECESSARY TO SCOPE ON IT, PLACE 100000 

(BIT 15) IN THE SWITCH REGISTER TO HALT ON ERROR. 

AFTER HALTING AT THE ERROR TO BE LOOPED ON, ENTER 60000, 
LOOP-ON-ERROR AND INHIBIT PRINTOUTS. IF THERE IS MORE 
THAN ONE ERROR CALLED IN A TEST, AND YOU WISH TO LOOP ON 
OTHER THAN THE 1ST ERROR, YOU MUST CORRECT THE CONDITION 
CAUSING THE PREVIOUS ERROR(S) BEFORE YOU CAN LOOP ON THAT 
ERROR. NOP'ING THE PREVJOUS ERRORS WILL PRODUCE 5 amaeal 
TABLE RESULTS FOR ANY SUBSEQUENT ERRORS IN THE TEST 
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6.0 ERROR REPORTING 


EACH TEST WiLL CALL AN ERROR CONTAINING THE TEST NUMBER, ERROR PC 
AND DATA THAT IS SIGNIFICANT TO THE PROBLEM THAT CAUSED THE ERROR. 


IN THE CASE OF MULTIPLE BOARD TESTING, THE FAILING MODULE IS IDENTIFIED 


BY THE DEVICE REGISTER ADDRESS, AND THE END-OF-DEVICE-TEST MESSAGE 
FOLLOWING ALL ERRORS FOR THAT PARTICULAR MODULE. 


SEQ 0012 


pa N 1 
‘CZDRLCO-DRi1 GEN NPR INTFC MACRO M1113 27-OCT-80 15:53 PAGE 14 


SEQ 0013 
38 7.0 OPERATING MODE 
348 7.1 MANUAL MODE (STARTING ADDRESS = 204) 
a8 DEFINED AS NON-AUTOMATIC USE OF THE DIAGNOSTIC. 
378 THIS MODE IS INTENDED FOR USE IN MANUFACTURING WHEN APT IS 
4 NOT AVAILABLE. 
381 IN MANUAL MODE, ALL DR11-W HARDWARE MODULES *MUST*BE*CONF IGURED* 
$f *AS*FOLLOWS*: 
384 > W/B, PRIORITY LEVEL, 2/N CYCLE AND CABLE STATES SET IDENTICAL 
$a2 *IN*ALL*MODULES*. 
387 > ALL DEVICE ADDRESSES MUST BE SET IN A SERIES SPACED 10 LOCATIONS 
388 APART, STARTING WITH THE ADDRESS thd TO THE PROMPT ‘STARTING 
389 DEVICE ADDRESS XXXXXX :'. (ALL MODULES MUST BE ADDRESSED 
49 WiTHIN THE LEGAL ADDRESS RANGE OF 171000 TO 177000) 
392 > ALL VECTOR ADDRESSES MUST BE SET _IN A SERIES SPACED 10 LOCATIONS 
393 APART. (ALL MODULES MUST BE VECTORED WITHIN THE LEGAL VECTOR 
ee RANGE OF 300 TO 770) 
396 > THE MODULE WITH THE LOWEST DEVICE ADDRESS MUST ALSO HAVE THE 
397 LOWEST VECTOR ADDRESS, THE MODULE WITH THE NEXT TO THE LOWEST 
398 DEVICE ADDRESS MUST ALSO HAVE THE NEXT TO THE LOWEST VECTOR 
44 ADDRESS, ETC. FOR EXAMPLE: 
rr 4 BOARD # DEVICE ADDRESS VECTOR ADDRESS 
403 0 172410 300 
404 1 172420 310 
405 2 172430 320 
ret 3 172440 330 ETC. 
408 ONLY UNDER MANUAL MODE DOES THE DIAGNOSTIC OFFER ‘BURST 
409 DATA LATE*® CALIBRATION. AFTER LOADING PROGRAM, DEPOSITING 
219 SA 204, AND PRESSING START, THE PROGRAM TYPES THE FOLLOWING: 
sig MULTIPLE BOARD DIALOGUE 
rhe ENTER COMMAND (CEJDIT, C.JIST, CBJURST CALIBRATION, CRIUN): 
416 THE PROGRAM WILL ALLOW ONLY 1 CHARACTER INPUT, AUTOMATICALLY 


417 : PRINTING A <CRLF> WHEN THE CHARACTER IS INPUTED. 


— ———_—__- CL ODO OO rrrenhwmnmnOoeeoOonee ee ee ———_$_— 


B 2 
CZDRLCO-DRi1 GEN NPR INTFC MACRO M1113 27-OCT-80 15:53 PAGE 15 





SEQ 0014 
| 418 7.1.1. WHEN CE] IS ENTERED, THE PROGRAM ENTERS THE EDIT FUNCTION 
es *NOTE*: TO EXIT THIS ROUTINE AT ANY RESPONSE AND RETURN 
421 TO THE MBD PROMPT, ENTER CONTROL 'C’ (“C). THIS DOES 
422 NOTHING BUT EXIT THE ROUTINE, AND DOES NOT CHANGE ANY 
423 VALUES PRESENT OR CHANGED. 0 RETURN TO THE PREVIOUS 
424 PROMPT, TYPE <ESC>. 
426 "EDIT" RESPONDS FIRST BY PRINTING: 
428 # OF BOARDS UNDER TEST X: 
430 PROGRAM ACCEPTS A MAXIMUM OF 2 DECIMAL CHARACTERS. 
431 AN APPROPRIATE ERROR MESSAGE IS PRINTED IF THE NUMBER 
432 INPUTED IS OUT OF RANGE, OR AN ILLEGAL CHARACTER WAS 
433 INPUTED. ENTER <CR> IF PRESENT VALUE IS OK. NEXT: 
435 STARTING DEVICE ADDRESS XXXXXX : 
437 THE USER SHOULD RESPOND WITH THE LOWEST DEVICE ADDRESS 
438 IN THE SERIES. PROGRAM ACCEPTS A MAXIMUM OF 6 OCTA 
439 DIGITS BETWEEN 171000 AND 177000. AN APPROPRIATE ERROR 
440 MESSAGE IS PRINTED IF THE NUMBER INPUTED IS OUT OF 
441 RANGE, OR AN ILLEGAL CHARACTER WAS INPUTED. ENTER <CR> 
44g IF PRESENT VALUE IS OK. NEXT: 
Aad STARTING VECTOR ADDRESS XXX : 
446 THE USER SHOULD RESPOND WITH THE LOWEST VECTOR ADDRESS 
447 IN THE SERIES. PROGRAM ACCEPTS A MAXIMUM OF 3 OCTA 
448 DIGITS BETWEEN 300 AND 777. AN APPROPRIATE ERROR 
449 MESSAGE IS PRINTED IF THE NUMBER INPUTED IS OUT OF 
450 RANGE, OR AN ILLEGAL CHARACTER WAS INPUTED. ENTER <CR> 
451 IF PRESENT VALUE IS OK. NEXT: 
453 DR11-W OR B (W=0) CURRENT STATE = 
455 PROGRAM ACCEPTS EITHER A 0 OR 1, REPEATING THE PROMPT 
456 IF ANY OTHER CHARACTER IS INPUTED. ENTER <CR> IF 
457 PRESENT VALUE IS OK. NEXT: 
ret DEVICE PRIORITY PRESENT LEVEL = 
461 PROGRAM ACCEPTS 1 CHARACTER BETWEEN 0 AND 7, REPEATING 
462 THE PROMPT IF ANOTHER CHARACTER IS INPUTED. ENTER <CR> 
463 IF PRESENT VALUE IS OK. NEXT: 
465 2 OR N CYCLE BURST (2 CY=0) PRESENT STATE = 
467 PROGRAM ACCEPTS A 0 OR 1, REPEATING THE PROMPT IF ANY OTHER 
468 CHARACTER I$ INPUTED. ENTER <CR> IF PRESENT VALUE IS OK. NEXT: 
470 DO CABLE TESTS (NO=0) PRESENT STATE = 
472 PROGRAM ACCEPTS A 0 OR 1, REPEATING THE PROMPT IF ANY 
473 OTHER CHARACTER IS INPUTED. ENTER <CR> IF PRESENT 
47% VALUE IS OK. THEN THE COMMAND PROMPT IS REPRINTED. 
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SEQ 0015 
of? 7.1.2 WHEN CL) IS ENTERED, THE PROGRAM ENTERS THE LIST FUNCTION 
iA 4 THE DIAGNOSTIC THEN PRINTS THE FOLLOWING: 
479 # OF START 2-N CABLE 
tf BOARDS REGADR  VECADR W-B PeLEV CYCLE TESTS 
re XX XXX XXX x x x x 
484 AS PREVIOUSLY MENTIONED, ALL BOARDS MUST BE Feaaat 10 
485 ADDRESS LOCATIONS APART STARTING WITH THE ‘REGADR 
486 VALUE ABOVE, AND VECTORS SPACED 10 ADDRESS LOCATIONS 
487 APART STARTING WITH THE ‘VECADR' VALUE ABOVE. THE 
488 EXPECTED W-B, PRIORITY LEVEL, 2-N CYCLE AND CABLE TEST 
489 STATES WILL BE THE SAME FOR ALL MODULES. 


| 
| 
| 


D2 
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SEQ 0016 


490 7.1.3 WHEN CB) IS ENTERED, THE PROGRAM ENTERS THE BURST DATA 
491 LATE CALIBRATION ROUTINE, AND THE FOLLOWING IS TYPED: 


| 

| 493 BURST DATA LATS CALIBRATION IN PROGRESS.. 

494 ATTACH SCOPE PRO 

495 TO oa, tena NEXT BOARD, TYPE ANY CHARACTER 
496 DEVICE # 0 UNDER CALIBRATION 

| 


498 THIS ROUTINE WILL NOT EXECUTE IF YOU HAVE NOT USED 
499 EDIT TO DEPOSIT A LEGAL STARTING ADDRESS AND VECTOR 
500 ADDRESS, OR THE PROGRAM HAS ALREADY St. stone AT 
501 200. THE MULTIPLE BOARD DIALOGUE (MBD) PROMPT 

502 WILL BE RETURNED IF THIS IS THE CASE. AS ed IN 
503 THE DR11 ENGINEERING SPECIFICATION, THE ‘BURST DLT’ 
504 MULTIVIBRATOR TIME OUT MUST BE CALIBRATED SO As. to BE 
505 COMPATIBLE WITH THE USER DEFINED TRANSFER RATE IN 

506 BURST MODE OPERATION. THE PROGRAM SC“ TWARE ROUTINE 


508 DELAY IS EXECUTED, AND THEN THE CYCLE ."T IS CLEARED. 
509 THE DIAGNOSTIC THEN TESTS FOR ANY CHARACTER WAITING, 
510 INDICATING THE USER WISHES TO GO ON TO THE NEXT BOARD. 
If NONE, IT RE-EXECUTES THE SETTING AND CLEARING OF 
THE CYCLE BIT. IF A CHARACTER WAS INPUTED, IT CHECKS 
FOR THE NEXT BOARD, AND IF ANY, SETS UP THE ADDRESSES 
FOR THAT MODULE, THEN PRINTS THE FOLLOWING: 


DEVICE # X UNDER CALIBRATION 


"X' BEING THE DEVICE NUMBER. IT THEN REACCOMPLISHES 
THE SETTING AND CLEARING OF THE CYCLE BIT FOR THAT 
DEVICE. IF NO FURTHER MODULES ARE FOUND, THE MESSAGE: 


BURST CALIBRATION COMPLETE 


524 IS ISSUED, AND THE MBD PROMPT IS THEN RETURNED FOR 
525 ANOTHER COMMAND. TO ACCOMPLISH THE BURST DATA LATE 
526 CALIBRATION, ATTACH A SCOPE PROBE TO E83-7 ON THE 
527 ; DRii-w (REFER TO PRINT SET M8716-0-1). A POSITIVE 
528 ; PULSE WILL_BE OBSERVED. THE PULSE SHOULD BE SET 
529 BETWEEN 3-30 US. BY ADJUSTING POT. R80. 


531 7.1.4 WHEN CR) IS ENTERED, THE PROGRAM BEGINS DIAGNOSTIC 

532 TEST EXECUTION. THIS WILL BE BLOCKED IF LEGAL STARTING 
533 DEVICE ADDRESSES AND VECTOR ADDRESSES HAVE NOT BEEN 

534 SET UP. IF THEY ARE, THE REGISTER AND VECTOR TABLES 
535 ARE FILLED, AND NORMAL START IS EXECUTED. 


PY AAAI ANUTYT UT 
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7.2 


AUTO=SIZE MODE (STARTING ADDRESS = 200) 


THIS MODE IS THE NORMAL FIELD SERVICE MODE. IT SUPPORTS 
STANDALONE OPERATION AS WELL AS SCRIPT OPERATION UNDER ACT11 
OR XXDP (CHAIN). 


THE DR11 DIAGNOSTIC HAS THE FOLLOWING RUN CHARACTERISTICS WHEN 
OPERATING IN AUTO MODE: 


A. 


THE PROGRAM WILL TEST THE BOARDS RECOGNIZED BY THE P ae 
ROUTINE. THE AUTOSIZE gt | WILL LOOK AT ADDRESSES 
BETWEEN 172414 AND 172604 IN STEPS OF 10 (20 OCTAL LOCA- 
TIONS). IT WILL INITIALLY DETERMINE IF THE LOCATION IT 
FOUND TO EXIST IS A DR11 BY FORCING AN INTERRUPT. IF THE 
BOARD FAILS TO INTERRUPT, YOU MUST USE MANUAL MODE TO FORCE 
TEST EXECUTION OF THAT MODULE. THE PURPOSE OF THIS INITIAL 


AND DETERMINE THE INTERRUPT PRIORITY AND VECTOR OF THAT 
MODULE. THE ONLY LEGAL INTERRUPT VECTORS THE DR11 CAN BE 
SET UP FOR ARE AS FOLLOWS: 40, 50-174, AND 254-774, ALL _IN 
STEPS OF 4. EACH BOARD CAN HAVE A VECTOR ANYWHERE IN THE 
STATED RANGES WITH NO RESTRICTIONS, ALLOWING COMPLETE 
FLEXIBILITY IN THE TEST SEQUENCE. 


IN THE CASE OF MULTIPLE DR11-W'S ON THE SAME CPU, EACH 
DR11-W MUST HAVE ITS OWN UNIQUE DEVICE/VECTOR ADDRESSES. 
THERE ARE NO CONSTRAINTS THAT THE BOARDS MUST START WITH 
THE FIRST DEVICE ADDRESS 172410, OR THAT MULTIPLE BOARDS 
ARE ASSIGNED CONSECUTIVE DEVICE ADDRESSES. WHEN OPERATING 
IN AUTO-SIZE MODE, THE USER SHOULD VERIFY THE ‘'SIZED' 
CONFIGURATION BY KNOWING HOW THE BOARDS ARE SET UP AND 
COMPARING WITH THE AUTOSIZE OUTPUT WHEN STARTING AT 200. 


AUTO~SIZING WILL DETERMINE THE INTERRUPT PRIORITY, INTER- 
RUPT VECTOR, W/B, 2/N CYCLE, AND CABLE STATES OF EACH 
BOARD, INDEPENDENT OF THE STATES OF OTHER BOARDS. 


SEQ 0017 
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B. is. Fa edi WILL NOT BE OFFERED TO THE USER IN AUTOSIZE © 


1. BURST DATA LATE CALIBRATION 
2. MULTIPLE BOARD DIALOGUE 


THE DIAGNOSTIC WILL PRINT THE FOLLOWING: 


DIAGNOSTIC HAS DETERMINED THE FOLLOWING ABOUT THE 
DRI1-W(S) IT HAS FOUND. USER *MUST* DETERMINE ACCURACY 


BOARD# REGADR VECADR' Ww/B PeLEV 2=-N CY CABLE 
x XXXXXX XXX x * x * 


DATA WILL CONTINUE TO PRINT UNTIL DATA FOR ALL MODULES 
HAS BEEN PRINTED. 


(*X) INHIBITS EOP'S, (*Y) FOR ERROR SUMMARY 
UNIBUS HANG? RESTART AT ADDRESS XXXXXX 


CZDRLCO DR11 GEN NPR INTFC LOGIC TEST 


THE CONTROL X (*X) FEATURE BYPASSES THE SECTIONS THAT PRINT THE 
END-OF-PASS AND END-OF-DEVICE MESSAGES. THIS IS TO IMPROVE THE 
NUMBER OF PASSES EXECUTED OVER ANY PERIOD OF TIME, AS WELL AS 
MAKE OVERNIGHT OR WEEKEND RUNS USE LESS PAPER. ERROR TYPEOUTS 
ARE NOT DISABLED IN THIS MODE. WHEN AN ERROR OCCURS, THE END- 
OF-PASS (EOP) WILL PRINT FOR THAT PASS, AND, IF MORE THAN ONE 
MODULE IS BEING TESTED, AN END-OF-DEViCE (EOD) AS WELL AS END- 
OF-PASS WILL PRINT SO YOU WILL KNOW WHICH DEVICE AND PASS WAS 
EXECUTING WHEN THE ERROR OCCURED. IN ORDER TO GET A PROGRESS 
REPORT, HII ANY KEY REPEATEDLY, SINCE INITS AND RESETS DONE 
DURING THE EXECUTION OF THE DIAGNOSTIC MAY CLEAR THE CHARACTER 
WAITING FLAG BEFORE THE CHECK FOR THIS BIT. WHEN THE CHARACTER 
IS RECOGNIZED, AN EOP, AND IF MORE THAN ONE MODULE, AN EOD 
MESSAGE WILL PRINT GIVING THE USER A PROGRESS REPORT. 10 DIS- 
ABLE THIS FEATURE, REPEATEDLY ENTER (*X) AGAIN UNTIL THE CPU 
RECGGNIZES YOUR INPUT. 


SEQ 0018 
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THE CONTROL Y (*Y) FUNCTION CALLS FOR A SUMMARY OF DEVICE(S) 

AND PASS(ES) THAT HAD ERRORS. IF NO ERRORS OCCURED SINCE THE 
BEGINNING OF THE DIAGNOSTIC, OR SINCE THE LAST ERROR REPORT, 

THE FOLLOWING IS PRINTED: 


NO ERROR TOTALS TO REPORT 
IF THERE WERE ERRORS, THE FOLLOWING IS PRINTED: 


SUMMATION OF ERRORS me BEGINNING OR LAST REPORT 
BOARD # PASS # ERR 


x x 
x x x 
xX X X (ETC.) 


THE INFORMATION IS STORED ON A STACK THAT WILi HOLD UP TO 150 
(DECIMAL) DEVICE-PASS ERROR DATA LINES ABOVE. IF THE LIMIT IS 
REACHED, DIAGNOSTIC WILL CONTINUE, BUT FURTHER if at NOT BE 
STORED. THE DATA ACCUMULATED IS NOT WRITTEN OVER, BUT WHEN (“Y) 


IS ENTERED, THE FOLLOWING IS PRINTED JUST BEFORE tHe. "SUMMATION... 


STATEMENT ABOVE: 
STACK IS FULL - DATA MAY HAVE BEEN LOST 


WHEN THE DATA IS PRINTED, THE STACK IS rf a ds ata AND WILL 
START STORING UP TO ANOTHER 150 ERROR DATA LINES 


IN THE EVENT THE UNIBUS BECOMES HUNG, AND YOU HAVE NON-VOLATILE 
MEMORY OR BATTERY BACKUP, RESTART THE PROGRAM AT THE ADDRESS 
SPECIFIED BY THE ‘UNIBUS HUNG...* PROMPT AT THE START OF THE 
DIAGNOSTIC. THE PRINTOUT WILL BE AS FOLLOWS: 


SEQ 0019 


DEVICE ADDRESS = XXXXXX, TEST NUMBER = XXXXXX, PASS NUMBER = XXXXXX 


CPU WILL HALT. HITTING CONTINUE WILL CAUSE THE PROGRAM TO 
RESTART AS THOUGH YOU HAD STARTED AT 200. 


CZDRLCO-DRi1 GEN NPR INTFC 
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7.3 


RESTARTING PROGRAM IN MEMORY (STARTING ADDRESS = 210) 


WHENEVER THE PROGRAM IS HALTED, ALL HISTORY OF PREVIOUS TESTING 
IS SAVED. IT WILL REMAIN INTACT UNTIL: 


1. ANOTHER PROGRAM IS LOADED INTO MEMORY 
2. THE USER RE-EDITS THE TABLE 


TO RESTART THE PROGRAM, ENTER SA 210 AND START. THIS START 
PRECLUDES ANY SETUP AND NEGATES THE START MESSAGE OBTAINED 
WHEN STARTING AT 200. DO NOT START AT THIS LOCATION IF THE 
a oeere es HAS NOT BEEN PREVIOUSLY ‘'STARTED'' AT EITHER 200 


SEQ 0020 
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7.4 


TESTING UNDER APT (AUTOMATED PRODUCT TESTING) 


TO SET UP FOR MULTIPLE BOARDS FOR TESTING UNDER APT CONTROL, 
THE APT SYSTEM MANAGER SHOULD ANSWER THE APT QUERIES TO THE 
FOLLOWING ITEMS AS INDICATED BELOW: 


SOFTWARE ENVIRONMENT: 


ENVIRONMENT MODE (S$ENVM): 


VECTOR ADDRESS ($VECT1): 
DEVICE ADDRESS ($BASE): 
DEVICE MAP ($DEVM): 


DEVICE DESCRIPTOR WORDS: 


SEQ 0021 
000 - DUMP MODE 
001 = SCRIPT MODE (APT MONITORS 
DIAGNOSTIC) 
000 = LET DIAGNOSTIC AUTO-SIZE 
CONFIGURATOR AND TEST 
ACCORDINGLY 
200 = DIAGNOSTIC MUST USE CONF IGURA- 
TION SPECIFIED BY APT ($VECTI, 
$VASE, SDEVM, $DDWX) 
300 
172410 
XXXXXX = EACH SET BIT INDICATES THAT 
BOARD IS PRESENT AND SHOULD 
BE TESTED. EXAMPLES: 
BIT 0 = BOARD #0 (DEVICE ADR = 172410, VEC ADR = 300) 
BIT 1 = BOARD #1 (DEVICE ADR = 172420. VEC ADR = 310) 
BIT 2 = BOARD #2 (DEVICE ADR = 172430. VEC ADR = 320) 
BIT 15 = BOARD #15 (DEVICE ADR = 172600, VEC ADR = 470) 


XXXXXX = THERE 1S 1 DESCRIPTOR WORD 
FOR EACH DEVICE: 


$DDWO IS FOR DEVICE 0 
$DDW1 IS FOR DEVICE 1, ETC. 


EACH DESCRIPTOR WORD MUST BE 
SET UP AS FOLLOWS: 


BIT 0 - DR11-W OR -B MODE 


(W=0, B=1) 
BIT 1 - ein €YCLE 
(O=2 CY, 1=N CY) 
BIT 2 - ret TESTS 
(O=NO, 1=YES) 


BIT 5 \ 
BIT 6 > DEVICE PRIORITY 
BIT 7 / 
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8.0 MISCELLANEOUS 


8.1 


POWER FAIL 


IF A POWE! FAILURE OCCURS AND BATTERY BACKUP MAINTAINS 
THE PROGRAM IN MEMORY, OR A NON-VOLATILE MEMORY EXISTS, 
THE PROGRAM WILL RESTART PRINTING THE FOLLOWING: 


POWER FAILURE - RESTARTING PROGRAM 
THE DIAGNOSIC WILL THEN RESTART AT ADDRESS 210. 


IF CPU IS TURNED OFF WHILE RUNNING, THE ABOVE PROCEDURE 
1S FOLLOWED. IF THE PROCESSOR IS HALTED FIRST, THEN 
TURNED OFF, THE PROCESSOR WILL COME BACK UP HALTED. TO 
RESTART THE PROGRAM, HIT CONTINUE, AND THE REMAINING 
PROCEDURE IS THE SAME AS ABOVE. 


SEQ 0022 


f 
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8.2 


END-OF -PASS MESSAGE 

THE EOP WILL PRINT AS FOLLOWS WITH NO ERRORS ON THAT PASS: 
END PASS # XXXXXX 

aryitt: WILL PRINT AS FOLLOWS WITH SOME ERRORS WHEN TESTING 1 


END PASS # XXXXXX TOTAL ERRORS SINCE LAST REPORT XXXXXX 


THE EOP WILL PRINT THE SAME AS WITH NO ERRORS ON ANY PARTICULAR 
PASS WHEN TESTING MORE THAN ONE DEVICE AND ONE OR MORE DEVICES 
HAS FAILED, SINCE ‘TOTAL ERRORS' IS MEANINGLESS AND WILL MORE 
THAN LIKELY BE INCORRECT. 


THE PASS NUMBER IS CAPABLE OF GOING UP TO 99,999,999 DECIMAL, 
OR ABOUT 3 MONTHS RUNNING WITH EOP DISABLED AND NO ERRORS. IN 
OTHER WORDS, 32767 IS NOT THE LIMIT AS WITH OTHER DIAGNOSTICS. 


SEQ 0023 


‘- --— 
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SEQ 0024 
oes 9.0 EXECUTION TIME 
749 ON A PDP11/44: 
yay IN ALL MODES: APPROXIMATELY 8 PASSES PER SECOND WITH EOP MESSAGES 


752 DISABLED AND NO ERRORS. 
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10.0 SUBROUTINE ABSTRACT 


10.1 


10.3 


10.5 


READ 


THE READ SUBROUTINE IS USED IN THE EDIT ROUTINE TO INPUT UP TO 
6 DIGITS IN OCTAL, 2 DIGITS IN DECIMAL, OR A SINGLE NON- 
NUMERIC CHARACTER. ‘i st USED AS THE LOCATION TO HOLD THE 

AND IS CLEARED FOR THAT PURPOSE AT THE START 
OF THE SUBROUTINE. R3 IS TO BE PRELOADED WITH THE NUMBER OF 


TION vg i seen Y 4 
VALUE OF THE DIGIT INPUTED, re a R4 TO He LEFT 3 PLACES TO 


ACCEPTABLE FOR THIS NUMBER, I.E. 7 OR 9 (FOR OCTAL OR DECIMAL 
INPUT RESPECTIVELY). ANY CHARACTER OUTSIDE ASCII 'O' OR ‘7/9° 
Ld AS A NON-NUMERIC, TRIGGERING AN AUTOMATIC <CRLF> 


ERCAPT 


ING ERRORS IS LOST. 
PTCAPT 


THIS SUBROUTINE PRINTS THE DATA STORED BY THE ERCAPT ae ret Hee 
AND RESETS THE SPECIAL STACK POINTER. IF NO DATA WAS STORED, 
MESSAGE STATING NO DATA WAS STORED IS PRINTED. IF THE STACK i$ 
FOUND FULL, A MESSAGE ANNOUNCING THIS FINDING IS PRINTED, 
WARNING THAT DATA MAY HAVE BEEN LOST. 


FIXTBL 

THIS SUBROUTINE FILLS THE 17 OCTAL LOCATIONS STARTING AT 
"REGADR' AND 'VECADR' FROM THE STARTING VALUES ALREADY LOADED 
IN THE FIRST LOCATIONS IN STEPS OF 10 FOR EACH TABLE. 

LODBUF 

THE INBUF wre ik LOADED WITH AN INCREMENTING PATTERN 


INNING AT THE STARTING ADDRESS OF INBUF. THE 
NUMBER Of WORDS LOADED IS DETERMINED BY THE CONTENTS OF BUFLEN. 


SEQ 0025 
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10.6 


10.7 


10.9 


10.10 


10.11 


CHKBFF 


THE a a er IS LOADED WITH A MODIFIED INCREMENTING PAT- 
uh ay «++) BEGINNING AT THE STARTING ADDRESS OF 
CHEBUF, OF new MBER Of WORDS LOADED IS DETERMINED BY THE CON- 


USE THE MAINTENANCE MODE OF THE DR11-W WHICH HAS A SPECIAL 
ALTERNATING DATI-DATO SEQUENCE OF OPERATION. 


INTA 


THE IE BIT IS CLEARED IN THE CSR THEN THE CSR IS CHECKED FOR 
THE ABSENCE OF THE ERROR BIT AND THE PRESENCE OF READY. THE 
WCR IS CHECKED TO SEE THAT IT IS EQUAL TO ZERO. THE CORRECT 
CONTENTS OF THE BAR ARE CALCULATED AND CHECKED. THE PROGRAM 
WILL FAIL TO UPDATE THE PC RETURN ADDRESS BY 2 IF ERROR IS SET, 
READY IS CLEAR, READY AND ERROR ARE CLEAR OF THE CSR, WCR IS 

NOT ZERO OR THE BAR CONTENTS IS NOT ZERO. THIS WILL CALL THE 
ERROR THAT IS JUST AFTER THE JSR CALL IN THE TEST. IF ALL DATA 
1S ACCEPTABLE, THE PC IS UPDATED, AND THE RETURN FROM THE SUB~ 
ROUTINE IS AFTER THE ERROR CALL. 


DATCHK 


THIS ROUTINE IS ENTERED TO CHECK INBUF AFTER A MAINTENANCE MODE 
OPERATION. THC CONTENTS OF INBUF -. THE CONTENTS OF CHKBUF 
ARE CHECKED TO SEE THAT THEY ARE THE SAME. THE NUMBER OF COM- 
PARISONS MADE IS Al ate BY ioe CONTENTS OF BUFLEN. ANY 
ERRORS RESULT IN AN RTS TO THE TEST TO CALL THE ERROR THERE. A 
JSR BACK TO THE SUBROUTINE IS EXECUTED TO RESUME ITS CHECKING. 
WHEN RETURNING, SP RETURN ADDRESS IS UPDATED BY 6 TO RETURN 
AFTER THE ERROR CALL AND JSR RETURN, 


CLENUP 

THE ROUTINE IS ENTERED AT THE END OF SEVERAL TESTS TO CLEAR ANY 
DATA THAT MAY HAVE BEEN LEFT IN ANY REGISTERS, AND TO RESTORE 
THE INTERRUPT VECTORS. 

CHKCAB 


THIS ROUTINE IS USED IN VARIOUS TESTS TO ALTER THE EXPECTED 
DATA IF THE WRAP-AROUND CABLE IS OUT. 


DATOCK 


SEQ 0026 
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10.12 


10.13 


10.14 


10.15 


10.16 


10.17 


10.18 


10.19 


ERRCHK 


THIS ROUTINE CLEARS IE AND UPDATES THE PC FOR RETURN AFTER THE 
ERROR IN THE TEST IF ERROR IS CLEAR. IF SET, RETURN IS EXECU- 
TED WITHOUT UPDATING THE PC RETURN SO THE ERROR CALL AFTER THE 
JSR CALL IN THE TEST WILL BE CALLED. 


DEVADS 


THIS ROUTINE GENERATES AN ADDRESS TABLE LOCATED AT REGADR 
Sees er yt THE BASE DEVICE ADDRESS (CONTENTS OF $BASE) IN 


BPINIT 


THIS SUBROUTINE RELOADS THE ‘'.+2'' AND ‘'BPT'’ INTO THE UNUSED 
LOCATIONS BETWEEN 4 AND 776. 


DRGET 


THIS SUBROUTINE EXTRACTS INFORMATION ABOUT THE DR11 THAT INTER- 
RUPTED AND LOADS THE ACCUMULATED DATA INTO THE DEVICE DESCRIP- 
TOR WORD FOR THAT BOARD. 


TYPCNF 


THIS SUBROUTINE PRINTS THE BOARD CONFIGURATIONS THAT THE ASIZE 
SUBROUTINE FOUND ON THE UNIBUS. 


CHK4DR 


THIS SUBROUTINE CHECKS FOR A LOCATION AS BELONGING TO A DR11 BY 
TRYING TO FORCE AN INTERRUPT A TOTAL OF 4 TIMES WITH THE CPU AT 
PRIORITIES 6 THROUGH 3. IF THE ATTEMPT FAILS, ROUTINE CORRECTS 
THE STACK TO RETURN AFTER THE DR11 EXTRACTION ROUTINE. IF THE 
LOCATION DOES BELONG TO A DR11, THE RETURN ADDRESS OF THE SUB- 
ROUTINE ON THE STACK IS MOVED DOWN ONE LOCATION, AND THE 
ADDRESS+4 OF THE INTERRUPT VECTOR OF THE DR11 IS PUT IN THE 
RETURN ADDRESSES PREVIOUS LOCATION. THE STACK IS THEN POPPED 3 
i a BY ARTE THE POINTER UP 6, AND A NORMAL RETURN IS 


ASIZE 


THIS ROUTINE AUTOS 
CONFIGURATION IF B 


VCTADS 


THIS ROUTINE GENERATES THE by Ha ADDRESS TABLE STARTING WITH 
THE ADDRESS IN LOCATION ‘VECADR* 


IZES_ THE BOARD CONFIGURATION oy PRINTS THE 
IT 12 (10000) IS SET IN THE SWR 


SEQ 0027 


jpiceei — . _ — 
| 
| 
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SEQ 0028 
| ae 10.20 CATCH 
913 THIS ROUTINE REPORTS UNEXPECTED OR ERRONEOUS TRAPS OR INTER- 
914 RUPTS THROUGH THE BREAK-POINT-TRAP LOADED IN LOCATIONS 4-776. 
915 THE STACK IS CLEANED 4 TIMES BEFORE THE ERROR CALL, AND 
916 RESTORED TWICE AFTER THE ERROR CALL FOR RETURNING TO THE SOURCE 
at OF THE TRA®. 
4h 10.21 PSTATE 
921 THIS ROUTINE PRINTS THE STATE OF THE BIT IN THE DDW THAT WAS 
ose PRELOADED IN LOCATION ‘BITTST’. 
ose 10.22 PNTPRI 
359 THIS ROUTINE PRINTS THE DEVICE PRIORITY IN THE DDW LOCATION. 
oes 10.23 SETTUP 
to THIS SUBROUTINE INITIALIZES THE TRAP AND INTERRUPT VECTORS. 
+4 10.24 TSTMM 
934 THIS SUBROUTINE CHECKS FOR EXISTENCE OF MEMORY MANAGEMENT AND 
935 IF IT EXISTS, CHECKS FOR THE ERROR CONDITION OF NO MEMORY LOCA- 
936 TION, BUT NO ERROR AND NEX BIT SETS. IF MEMORY MANAGEMENT IS 
937 NOT THERE, AN EXIT UPDATING THE RETURN ADDRESS BY 2 IS DONE. 
938 IF THERE, THE XBA16 AND XBA17 BITS OF THE EXPECTED DATA ARE 
939 CHECKED. IF BOTH ZERO, AN EXIT UPDATING THE RETURN ADDRESS BY 
940 2 1S DONE. If EITHER OR BOTH ARE SET, THE UPPER BYTE OF THE 
941 MEMORY MANAGEMENT LOCATION IS CHECKED FOR THE EXISTENCE OF 
942 UPPER MEMORY, INITIALIZED AT THE BEGINNING OF THE DIAGNOSTIC. 
443 IF NOT THERE (BITS 0, 1 OR 2 OF UPPER BYTE CLEAR), A NORMAL 
944 EXIT IS EXECUTED SO THE BRANCH IMMEDIATELY FOLLOWING THE JSR 
945 CALL WILL CAUSE A CHECK FOR THE ERROR BITS IN THE EXPECTE® TO 
946 BE SET FOR ANOTHER CHECK. 


—_—— 


‘--- -- _ ——————————— 
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SEQ 0029 
947 11.0 DATA STACK 
948 
bo} 11.1 PATRNS 
951 THIS SET OF 7 DATA WORDS IS USED TO CHECK ANY LOCATION FOR 
952 STUCK OR SHORTED BITS. 


I 
957 SIBLE COMBINATIONS OF SET BITS I CSR WITH THE MAINTENANCE 
958 BIT CLEAR. IT CONTAINS THE EXPE ATA THAT THE CSR SHOULD 
959 CONTAIN AFTER THE BIT COMBINATIO RITTEN TO THE CSR. 


961 11.3 EXPAT1 


963 THIS SET OF DATA WORDS IS USED IN TEST 3 TO CHECK ALL POSSIBLE 
964 COMBINATIONS OF SET BITS IN THE CSR WITH THE MAINTENANCE BIT 
965 SET. IT CONTAINS THE EXPECTED DATA THAT THE CSR SHOULD CONTAIN 
966 AFTER THE BIT COMBINATION IS WRITTEN TO THE CSR. 


co - 


| 
| 
| 953 
o2e 11.2 EXPATO 
956 THIS SET OF DATA WORDS IS te 3 31 TO CHECK ALL POS- 
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«NLIST MC,MD,CND 
“TITLE CZORLCO-DR11 GEN NPR INTFC 
s*COPYRIGHT (C) 1980 
:*DIGITAL EQUIPMENT CORP. 
g ORAYRARD MASS. 01754 


; PROGRAM BY DAN MILLEVILLE 


Be Be Be Be Be Be Be Be He He He Be Be He Se He 


Be Oe Be Oe Oe Be Be Se Be Be Be Be Se Be Se Se Be He Se Se Be Be Be He 


. “e . 
a Oi Oe ne ee LEDC aOR SHOE RERO OER WEREE BDO S SEES SS 8 | 


THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977, MODIFIED FOR 
THE CZDRLC DIAGNOSTIC. CHANGES ARE NOTED BY C;@& J IN THE 
COMMENT FIELDS OF THE S$SCOPE, SEOP, STYPE, SERROR, SCKSWR 
SPWRON, SPWRUP (ELIMINATED), SERRTYP AND $TYPDS ROUTINES. 
NEWTST WAS MODIFIED IN FUNCTION AS DESCRIBED BELOW. CHANGES 
WERE AS FOLLOWS: 


SSCOPE: END-OF-PASS MESSAGE DISABLING AND REENABLING CAPABILITY, 
PLUS UPDATING STESTN JUST AFTER STSTNM IS UPDATED, A 
WELL AS ANY NEEDED MESSAGES. 


SEOP: CHANGED TO RECOGNIZE WHETHER OR NOT THE USER WISHES 
THE EOP MESSAGES PRINTED, AND PRINTS THE NUMBER OF 
ERRORS IN THAT PASS IF THERE WERE ANY, AND TYPES AN 
EXTRA <CRLF> IF THERE WERE ERRORS TO SPACE EOP FROM 
THE ERROR. CHANGED ALSO TO RECOGNIZE WHEN THE PASS 
COUNT GOES NEGATIVE, AND IF SO, CLEARS THE PASS COUNT, 
AND INCREMENTS THE NEXT LOCATION AFTER $PASS TO COUNT 
A BLOCK OF 32768 PASSES HAS OCCURED. THIS LOCATION 
1S USED IN CONJUNCTION WITH SPASS TO PRINT UP TO 
PASS # 99,999,999 DECIMAL. 


$TYPE: INSTEAD OF USING THE STACK TO LOAD A CHARACTER INPUTED 
WHILE PRINTING, LOOSING THE CHARACTER IN THE PROCESS, 
LOCATION 'CHARCT' IS USED TO SAVE IT FOR S$SCOPE TO USE. 


SERROR: INCREMENT LOCATION "ERRCNT* FOR POSSIBLE USE IN MULTIPLE 
ERROR PRINTOUTS. 


SCKSWR: TESTING AND PROCESSING OF THE CONTENTS OF LOCATION 
*CHARCT' WAS ADDED TO INCREASE CHANCES OF DIAGNOSTIC 
oS aay USER REQUEST FOR A SOFTWARE SWITCH REGISTER 


SERRTYP: ADDED CAPABILITY TO eve} bo ERRORS WITHIN LOOPS (ERRORS 
WITH ERROR NUMBERS BETWEEN 201-377) SO THE MESSAGE AND 
DATA HEADER ARE PRINTED DURING THE 1ST ERROR ONLY, WITH 
DATA ONLY PRINTED FOR 2ND AND SUBSEQUENT ERRORS. IT 
CANCELS DATA PRINTING AFTER 20 (OCTAL) ERRORS HAVE BEEN 
DONE SO AS TO ELIMINATE MASSIVE ERROR TYPEOUTS, BUT 
CONTINUES TO TALLY THE ERRORS IN LOCATION "SERTTL’ SO THE 
EOP MESSAGE wi SHOW THE TOTAL NUMBER OF ERRORS IN THAT 
PASS. If AN ERROR NUMBER BELOW 201 IS CALLED, “ERRCNT' 
1S CLEARED SO IF THIS ERROR IS IN A LOOP, ANY SUBSEQUENT 
201+ ERRORS WILL HAVE THERE HEADER REPRINTED. 


SEQ 0030 
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ee Be Be Be Be Be Oe Be Se Be Be Be Be Se Be Be Be Be Se Be Se Se Be Be 


eae eee nmrnmnenenemnenmeneeeeeeneetene eee enennnene 


NEWTST: 


SPWRDN: 


$STYPDS: 


".PAGE' WAS ADDED SO EACH NEW TEST WOULD BE ON A NEW PAGE. 
AT THE BEGINING OF EACH NEW TEST, THE TITLE AND TEST NUMBER 
ARE WRITTEN IN A SUBTITLE SO THAT EACH TEST WILL APPEAR IN 
THE TABLE OF CONTENTS AT THE BEGINING OF THE DIAGNOSTIC. 

AN ADDITIONAL TRACE FEATURE WAS ADDED AT THE BEGINNING 

OF EACH TEST TO CHECK BIT 11 OF THE SWITCH REGISTER. WITH 
THIS BIT SET, THE USER CAN SEE WHAT TEST WAS EXECUTING 
WHEN THE OPERATION CEASED TO BE SEQUENTIAL. 


THE OPERATIONS TO a REGISTER CONTENTS WERE ELIMINATED 

DUE TO THE LACK OF THE NEED. A LOAD OF THE SPWRUP ADDRESS, 
LOCATED JUST AFTER THE POWER DOWN HALT, IS LOADED INTO THE 
POWER TRAP VECTOR SO THAT ON POWER UP, THE PROGRAM WILL 
RESTART. IF PROCESSOR IS UNABLE TO GET TO THE POWER DOWN 
ROUTINE ON A POWER FAIL (CPU HALTED WHEN POWER FAILURE 
OCCURED), PROCESSOR WILL EXECUTE THE POWER DOWN ROUTINE AND 
HALT. HITTING CONTINUE WILL RESULT IN THE POWER UP ROUTINE 
EXECUTING AS IT WOULD IN THE EVENT CF A RESTORATION OF POWER 
AFTER A POWER FAILURE WITH THE CPU RUNNING. 


THE ADDITION OF THE $TYPDE FUNCTION WAS ADDED. THIS FUNCTION 
ALLOWS THE PRINTING OF NUMBERS LARGER THAN 32767 DECIMAL. 

THE LOCATION THAT CONTAINS THE COUNT IS TO BE TESTED AFTER 
BEING INCREMENTED. IF NEGATIVE, IT IS TO BE CLEARED AND A 
SECOND (OVERFLOW) LOCATION IS TO BE INCREMENTED. WHEN 
CALLING THE ROUTINE, THE OVERFLOW LOCATION IS TO BE PUT ON 
THE STACK, THEN THE NUMBER, THEN THE CALL. IF THE OVERFLOW 
LOCATION IS NON-ZERO, IT WILL ADD 32768 TO THE ASCII NUMBER 
FOR EACH COUNT IN THAT OVERFLOW LOCATION. 


SEQ 0031 
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1008 .SBTTL OPERATIONAL SWITCH SETTINGS 

** 
;* SWITCH USE 
_ ee EE SSO OO OOOO OSE = 
i 15 HALT ON ERROR 

| i 14 LOOP ON TEST 

| - 13 INHIBIT ERROR TYPEOUTS 

| :* 12 DO NOT PRINT BOARD CONFIGURATION 
i 11 TEST NUMBER TRACE ENABLING 
:° 10 BELL ON ERROR 
i 9 LOOP ON ERROR 
i 8 LOOP ON TEST IN SWR<6:0> 
i ? INHIBIT MULTIPLE ERROR TYPEOUTS 


WITTITI TIT TLI TTI ITT t iii titi err iy, 
;* >>>>>>>>>>>>>>NOTE KKK KKK KKK KKK KC 

;* THE ‘‘TEST NUMBER TRACE ENABLING'' ABOVE IS TO ENABLE PRINTING OF THE 

* TEST NUMBER AT THE BEGINNING OF EACH TEST, SHOUI.D YOU HAVE A PROBLEM 
* WITH THE DIAGNOSTIC JUMPING TO AN ILLEGAL LOCATION FRCM ANYWHERE IN 

* THE TEST. BY ENABLING IT, YOU CAN SEE THE LAST TEST ENTERED BEFORE 
* 
* 
: 
» 


THE OUT-OF-SEQUENCE JUMPING OCCURED. THIS IS USEFUL IF YOU ENCOUNTER 
AN UNEXPECTED TRAP FROM A PARTICULAR TEST, BUT DISCOVER THAT THE TEST 


ee ee ee ee ee ee ee) 


; RAN SUCCESSFULLY WHEN LOOPED. 


| 
. 
. 
OP RESESSESCESSES CESS ECE RECESS ESE SERRE RSE SSR ERE RE RRR RRR SARA RAR A ASSL 


Ok tk ts a ot 2 
elofelelelelejeleloejojojeo) 
NOR SS SS os SS SS © 
—SCOOMNOULSWN-OO 


SEQ 0032 
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BASIC DEFINITIONS SEQ 0033 
1023 .SBTTL BASIC DEFINITIONS 
SSINITIAL ADDRESS OF THE STACK POINTER *#* 1300 tee 
001300 STACK= 1300 
104000 ERROR= lat 
000004 SCOPE=10 
| ;sMISCELLANEOUS DEFINITIONS 
| 900011 11 S;CODE FOR HORIZONTAL TAB 
| 000012 a F SICODE FOR LINE FEED 
000015 CR= 15 ::;CODE FOR CARRIAGE RETURN 
000200 CRLF= 200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 
| 177776 PSs ‘177776 STPROCESSOR STATUS WORD 
| 177776 PSW=PS 
177774 STKLMT= 177774 7;STACK LIMIT REGISTER 
177772 te 177772 7; PROGRAM INTERRUPT rib te REGISTER 
| 177570 DSWR= 177570 {ZMARDWARE SWITCH REGISTER 
177570 DbIsP=__ 177570 DWARE DISPLAY REGISTER 
S*GENERAL PURPOSE REGISTER "DEFINITION g 
000000 Ro= £0 ;;GENERAL REGISTER 
000001 Riz Ml IGENERAL REGISTER 
000002 Re= 2 SIGENERAL REGISTER 
000003 RS= x3 SIGENERAL REGISTER 
000004 R4= %4 7;GENERAL REGISTER 
000005 R5= XS TIGENERAL REGISTER 
000006 R6= 6 GENERAL REGISTER 
000007 R7= 4X? GENERAL REGISTER 
000006 SP= x6 i: STACK POINTER 
000007 C= x7 PROGRAM COUNTER 
*PRIORITY LEVEL DEFINITIONS 
000000 PRO= 0 ;:PRIORITY LEVEL 0 
000040 PRi= 40 7: PRIORITY LEVEL 1 
000100 PR2= 100 SIPRIORITY LEVEL 2 
000140 PR3= 140 7; PRIORITY LEVEL 3 
000200 PR4= 200 TIPRIORITY LEVEL 4 
000240 PRS= 240 TIPRIORITY LEVEL 5 
000300 PR6= 300 ;;PRIORITY LEVEL 6 
000340 PR7= 340 :PRIORITY LEVEL 7 
*'"SWITCH REGISTER’ SWITCH DEFINITIONS 
100000 sui5= 1000 
040000 Swi4= 40000 
020000 Sw13= 20000 
010000 Swi2= 10000 
004000 Suli= 4000 
| 002000 Su10= 2000 
| 001000 Sw09= 1000 
| 000400 Su0B= 400 
| 000200 su07= 200 
000100 su0s= 100 
| 000040 SwOS= 40 
000020 Su04= 20 
| 000010 Sw03= 10 
| 000004 Su02= 4 
000002 suol= 2 
| 000001 Swoo= 1 
001000 Sw9=SW09 
| 0400 Su8=SW08 
000200 Su7=SW07 


000100 SW6=SW06 


‘CZDRLCO-DR11_ GEN NPR INTFC 


‘BASIC DEFINITIONS 


000040 


000001 
100000 


000001 
000004 


000300 


3 
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nnnnnnnnnhnnnn et we 


nn nonnune 


TPVEC= 


Sw5=SW05 
SW4=SW04 
SW3=SW03 
SwWw2=Sw02 
SwWi=Sw01 


10000 
40000 
20000 
10000 
4000 
2000 
1000 
400 
200 
100 
40 
20 
10 
4 
‘ 
BIT9=BIT09 
B1T8=B1T08 
BIT7=B1T07 
B1T6=B1T06 
B11T5=B1T05 
BI T4=B1T04 
BIT3=B1T03 
BIT2=BIT02 
BIT1=B1T01 
B1T0=B1T0 
le T 
4 
10 

=14 
14 
14 
20 
24 
30 

=34 
60 
64 

=240 
=ERRVEC 
=172410 
=300 


SwO=Sw00 
BIT DEFINITIONS (BITOO TO B1T15) 


0 
RAP VECTOR ADDRESSES 
ME OUT AND OTHER ERRORS 
: RESERVED AND ILLEGAL INSTRUCTIONS 


7; TRACE 
tT BREAKPOINT TRAP (BPT) 
Heyl ae TRAP (IOT) **SCOPE** 
;;POWER FAIL 
: sEMULATOR TRAP (EMT) **ERROR** 

AP'' TRAP 


:;TTY KEYBOARD VECTOR 
7; TTY PRINTER VECTOR 
;;PROGRAM INTERRUPT REQUEST VECTOR 


:BASE DEVICE ADDRESS 
;BASE VECTOR ADDRESS 


TRAP 


SEQ 0034 


| 
| 
| 


(ee 


CZDRLCO-DRi1 GEN NPR INTFC 
‘DEFINITIONS OF THE CSR BITS 


000001 


100000 


~-SBTTL DEFINITIONS OF THE CSR BITS 


FRAARARAAAAAAAAEAAKA AAA Tee eteeekeeKeekeeeeeeeeeeAAKeRKereteeeeee 


“ 
_ 


rnnnnnnnnnnnnnnnnnn nh wn 
aN NNO BN OS SEPM AS OI OO EM 
COOOCCOCOCCOCOCOCOCOOCOCOOCOOoC oO 


lelelelejlelelelejeloioa) 
felelelelelea{ a) 

— 

LJ 

wn” 

a" 

> 

a" 


000 +4; 
0000 ;ERROR 


>orrraon-— 


1 35 
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} &@ FNCT2 & FNCTS 


SEQ 0035 


zo 
@D 


=4 COOOCOCOCOCOCCOCOCO ar 
fom oal onl oak oak Val valeal eal eal eal eal sees ad 
VWEFWHR—OOONOUFWwN “oO 


ek as as a os 
oo 


‘ 
aQo°o 
Find 

-_? 
o> 
—<c 
zen 


L 


077777 


N NPR_INTFC 
ENT DEFINITIONS 


k 3 
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-SBTTL CSR BIT COMPLIMENT DEFINITIONS 


FRRARARARAAARAAHEKEATAAAEAAAA Ae AeAKAKKeAAKeKAKAtKeRKAteTHeKeKeAeA At 
CGO =177776 ;COMPLIMENT OF GO 

CFI =177775 ;COMPLIMENT OF FNCT1 

CF2 =177773 ;COMPLIMENT OF FNCT2 

CF3 =177767 ;COMPLIMENT OF FNCTS 

CFNC =177761 ;COMPLIMENT OF FNCT1 & FNCT2 & FNCTS 
CX6 =177757 ;COMPLIMENT OF XBA16 

Cx7 =177737 ;COMPLIMENT OF XBA17 

CIE =177677 ;COMPLIMENT OF IE 

CRY =177577 ;COMPLIMENT OF READY 

ccY =177377 ;COMPLIMENT OF CYCLE 

CDSC =176777 ;COMPLIMENT OF DSTAT C 

CDSB =175777 ;COMPLIMENT OF DSTAT B 

CDSA =173777 ;COMPLIMENT OF DSTAT A 

CDAB =171777 ;COMPLIMENT OF DSTAT A&B 
CDAC =172777 ;COMPLIMENT OF DSTAT A & C 
CDBC =174777 ;COMPLIMENT OF DSTAT B & C 
CDST =170777 ;COMPLIMENT OF DSTATAR BEC 
CMA =167777 ;COMPLIMENT OF MAINT 

CAT =157777 ;COMPLIMENT OF ATIN 

CNX =137777 ;COMPLIMENT OF NEX 

CEIR =77777 =;COMPLIMENT OF EIR 

CER =77777 ;COMPLIMENT OF ERROR 


SEQ 0036 


'-“-—_--- —_ —— - ——-~ - — _ ee -_ 
| 
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|COMPLEMENTS OF BIT DEFINITIONS SEQ 0037 
1076 -SBTTL COMPLEMENTS OF BIT DEFINITIONS 
1077 RRA eRAA RAR eRAAAAATEAATA TATA TATE eA Te AAA terete Kt eteKATeATeeeere 
1078 177776 CBITO =177776 ;COMPLIMENT OF BITO 
1079 177775 CBI1T1 §==177775 ; COMPLIMENT OF BIT! 
1080 177773 ite =177773 ;COMPLIMENT OF BIT2 
1081 177767 CBIT =177767 ;COMPLIMENT OF BITS 
1082 177757 CBIT4 = =177757 ;COMPLIMENT OF BIT4 
1083 177737 CBITS =177737 ;COMPLIMENT OF BITS 
1084 177677 CBIT6 =177677 ;COMPLIMENT OF BIT6 
1085 177577 CBIT? ==177577 ;COMPLIMENT OF BIT? 
1086 177377 CBIT8 =177377 ; COMPLIMENT OF BIT8 
1087 176777 CBIT9 =176777 ;COMPLIMENT OF BIT9 
1088 175777 CBIT10 =175777 ;COMPLIMENT OF BIT10 
1089 173777 CBI1T11 =173777 ;COMPLIMENT OF BIT11 
1090 167777 CBIT12 =167777 ;COMPLIMENT OF BIT12 
1091 157777 CBIT13. =157777 ;COMPLIMENT OF BIT13 
1092 137777 CBIT14 =137777 ;COMPLIMENT OF BIT14 
1093 077777 CBIT15 =77777 ;COMPLIMENT OF BIT15 
1094 057777 (B1513 =57777 ;COMPLIMENT OF BIT15 @ BIT 13 


m 3 
oe DRLCO-DRi1 GEN NPR INTFC MACRO M1113 27-OCT-80 15:53 PAGE 38 
Pai 1ORITY LEVELS AND OTHER DEFINITIONS SEQ 0038 
| 1095 -SBTTL PRIORITY LEVELS AND OTHER DEFINITIONS 
1096 peeereeeeeaeeeeeeeeeeeereeeetertrrreneeteHetieeeeeeAeeneeeeeeeeeees 
1097 000140 LEVELS =140 
1098 000200 LEVEL4 =200 
1099 000240 LEVELS =240 
1100 000300 LEVEL6 =300 
1101 000340 LEVEL? =340 
1102 000033 sc =33 
1103 000003 CNTLC 8 =3 
1104 000015 CARETN =15 
1105 177572 RO =177572 
1106 172304 KIPDR2 =172304 
1107 172324 KDPDR2 =172324 
1108 172344 KIPAR2 =172344 
1109 172364 KDPAR2 =172364 
1110 000250 MMVECT =250 
1111 000252 MMPS =252 
1112 000004 TOVECT =4 
1113 000006 TMOPSW =6 
1114 000003 BPT =3 
1115 024360 TST4O=ENDEV ;BRANCH TO TEST 40 = BRANCH TO ENDEV (THERE IS NO TEST 40) 





C2D 


C 
PRIORI 


1 
1 
2 


2 
2 


2 


2 


2 
2 
2 
3 
3 


3 
36 
3 


0- 
TY 
6 
7? 
8 
9 
0 
1 
2 
3 
5 
6 
7 
8 
9 
0 
1 
2 
3 
4 
$ 


RL 
OR 
1 
1 
11 
111 
1 
1 
1 
11 
11 
11 
112 
1 
1 
11 
113 
11 
113 
11 
113 
11 
11 
113 
113 
11 
11 
11 
11 
1 
1 
11 


Our Wn—Oo0On 


4 
4 
4 
4 
4 
4 
4 


DRi1 GEN NPR _INTFC 
LEVELS AND OTHER DEFINITIONS 


000014 
000016 


000042 
000174 


000176 


000200 
000204 
10 


000252 


000014 


000000 


000137 


001000 


010266 


011006 


042454 


j n 3 
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SEQ 0039 


FERRARA AAEAAA ERATE AAA AAA TARA AAAAAAAAARAAAAAHAAAKARAAAAAAAAAAES 
;* ALL UNUSED LOCATIONS FROM 4-776 WILL CONTAIN A ‘'.+2,BPT'’ SEQUENCE 
:* TO CATCH ILLEGAL TRAPS & INTERRUPTS TO THE ‘CATCH’ LOCATION 
:* 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
FERRARA AAAAAAAAAAAAE EAE EAA AA ETAAAAAAAAAAARARAAAAAAARATAERAAAAA ATES 
;THE BPT TRAP VECTOR POINTS TO THE 
ILLEGAL TRAP HANDLER ‘‘CATCH'’ 


2214 
BPTVCT: .WORD 
- WORD 
-=42 
«WORD 
22174 
DISPRE: .WORD 
SWREG: .WORD 


CATCH 
LEVEL? 


0 
0 


:CLEAR THIS LOCATION (FOR APT MONITOR STARTING ADDRESS) 


SRA AEEEEEEE AA AA ATER AAA E RAE AAAAAATA AAA RAERAEEEHRERERAEED 


“PROGRAM STARTING LOCATIONS 


o 
FERRARA AEAEAAAE ARATE AAA AA ARAAARERAARAAAARAAAAAAARERARETRAEEE 


STAGIN: 


EOPLOC 
tie 


#START 
BEGIN 


iJ 


ORMAL START 


UMP TO BEGIN] FOR R 


ENTER MULTIPLE BOARD DIALOQUE 
SPASS 


OPLOC 
THE CAPTURE POINTER 
T THE STACK POI 


TER 
ESTART WITHOUT HEADER PRINTING 


ACT11 
1147 


000046 
000052 
1148 


000024 
000044 


001000 
001000 


001012 


Fo a ana ol GEN NPR INTFC 


001000 


001000 


901000 


001000 


000000 


000052 


B 4 
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-SBTTL ACT11 HOOKS 


REAR REARRERAARE AERA AEE A AAA EAEAAAAAAAA AAA A RARE AEH EARTH ARTA TE 


; HOOKS ‘occ BY ACT11 
PC= sSAVE PC 


2 
WORD 0 +32)SET LOC. ry TO ZERO 
-=$SVPC 3; RESTORE P 
-SBTTL APT PARAMETER BLOCK 


OUTIL iT iti iititiltti till i ii 
;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
RReRRRe eR KARA RATATAT TATAA TAA AAA eee ee KAA teeeeeAKeTeeAAAetereeeees 
- $X=. Hoty CURRENT LOCATION 
=24 3;SET POWER FAIL TO POINT TO START OF PROGRAM 
200 2 3FOR APT START UP 
244 3;POINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHOR : :POINT TO APT HEADER BLOCK 
-=.$X S TRESET LOCATION COUNTER 
ITT iii iiit iii tit itit titi ii titi 
[SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
5 rb a SPEC. 


SHIBTS, .WORD 0 :;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
SMBADR: .WORD $MAIL ::ADDRESS OF APT MAILBOX (BITS 0-15) 
$TSTM: .WORD 1 ::RUN TIM OF LONGEST 


TEST 
SPASTM: .WORD 1 +3 RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
SUNITM: .WORD 0 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


» WORD SETEND-SMAIL/2 ;;LENGTH MAILBOX~-E TABLE (WORDS) 


.=46 
SENDAD 3:1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 


—e 


SEQ 0040 


‘ezpanco-pai1 GEN NPR INTFC 


OMMO 
/ 1150 


001300 


— + Ss ws a 


001300 
000000 
0 


377 


000 


377 


C4 
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+.SBTTL COMMON TAGS 


SRRRAREA AAA A AREA AAA EA AERA AA AAAAATAAAAERARAREAAK KHATER EATS 


3*THIS TABLE CONTAINS — COMMON STORAGE LOCATIONS 
7*USED IN aa GRAM 
SCMTAG: ::;START OF COMMON TAGS 
-WORD 0 
STSTNM: .BYTE 0 3: CONTAINS THE he NY NUMBER 
SERFLG: .BYTE 0 3: CONTAINS ERROR FLAG 
SICNT: .WORD 0 3: CONTAINS EUBTEST. ITERATION COUNT 
SLPADR: .WORD 0 ::; CONTAINS SCOPE LOOP ADDRESS 
SLPERR: .WORD 0 :;CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD 0 7: CONTAINS TOTAL ERRORS DETECTED 
SITEMB: .BYTE 0 ::CONTAINS ITEM CONTROL BYTE 
SERMAX: .BYTE 1 : CONTAINS MAX. ERRORS PER TEST 
SERRPC: .WORD 0 sCONTAINS PC OF LAST ERROR INSTRUCTION 
SGDADR: .WORD 0 s: CONTAINS ADDRESS OF ‘GOOD’ DATA 
$BDADR: .WORD 0 :: CONTAINS ADDRESS OF ‘BAD’ DATA 
$GDDAT: .WORD 0 a3 CONTAINS "GOOD" DATA 
SBDDAT: .WORD 0 7; CONTAINS ‘BAD’ DATA 
a : ;RESERVED--NOT TO BE USED 

SAUTOB: .BYTE 0 : AUTOMATIC MODE INDICATOR 
SINTAG: yA | . :; INTERRUPT MODE INDICATOR 
SWR: WORD DSWR : ADDRESS OF SWITCH REGISTER 
DISPLAY: .WORD ODDISP : :ADDRESS OF DISPLAY REGISTER 

TKS: 177560 7; TTY KBD STATUS 
$TKB: 177562 7; TTY KBD BUFFER 
$TPS: 177564 ::TTY PRINTER STATUS REG. ADDRESS 
$TPB: 177566 z7; TTY PRINTER BUFFER REG. ADDRESS 
SNULL: BYTE 0 :;CONTAINS NULL CHARACTER FOR FILLS 
SFILLS BYTE 2 :;CONTAINS # OF FILLER CHARACTERS aire 
SFILLC: .BYTE 12 s: INSERT FILL CHARS. AFTER A ‘'LINE FEED" 
ony BYTE 0 37° TERMINAL AVAILABLE’: FLAG (BIT<07>=0=YES) 
$TMPO: .WORD 0 ; USER DEFINED 
STMP1: .WORD 0 s;USER DEFINED 
$TMP2: .WORD 0 > USER DEFINED 
$TMP3: .WORD 0 7 ;USER DEFINED 
$TmMP4: .WORD 0 7;USER DEFINED 
$TmMP5: .WORD 0 :;USER DEFINED 

TMP6: .WORD 0 2 USER DEFINED 
SESCAPE :0 sESCAPE ON ERROR ADDRESS 

ELL: .ASCIZ <207><377><377> +: CODE FOR BELL 
$QUES: .ASCII /?/ 7; QUESTION MARK 
$CRLF: .ASCII <15> ; + CARRIAGE RETURN 
SLF: ASCIZ <12> sLINE FEED 


. Py 
WETTTTITINITTITT LIST ITT TIT T TT te 


SEQ 0041 


dD 4 
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/APT MAILBOX-E TABLE SEQ 0042 


-SBTTL APT MAILBOX-ETABLE 


r 
! 
| 
} 
| PURRAAERAAEKAAAEAAAAAAAT AEA THA A AAA KAKA AAA KAeeKeKeKKKee KATA AAs 
| 


| 
EVEN 
001410 SMAIL: :;APT MAILBOX 
001410 9000000 SMSGTY: .WORD AMSGTY ;,MESSAGE TYPE CODE 
001412 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
001414 000000 STESTN: .WORD ATESTN ;;TEST NUMBER 
001416 000000 SPASS: .WORD APASS 3;PASS COUNT 
001420 000000 SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 
001422 000000 SUNIT WORD AUNIT 331/0 UNIT NUMBER 
001424 000000 SMSGAD: .WORD AMSGAD ;;MESSAGE yt 
001426 000000 SMSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 
001430 SETABLE: 3, APT eevee TABLE 
001430 000 SENV: BYTE AENV : ;ENVIRONMENT BYTE 
001431 000 SENVM: .BYTE AENVM  ;;ENVIRONMENT MODE BITS 
001432 000000 SSWREG: .WORD ASWREG ;;APT ig Hh REGISTER 
001434 000000 SUSWR: .WORD AUSWR ;;USER SWITCHES 
001436 600000 SCPUOP: .WORD ACPUOP ;;CPU hay Eo rahe 
: 3* BITS big be TYP 
;* 11/04=01,11/05= 02, 11/20=03,11/40=04,11/45=05 
;* 11/70=06.PDQ=07, 
3* BlT 10=REAL TIME CLOCK 
;* BIT 9=FLOATING POINT oe 
a" i BIT 8=MEMORY MANAGEMENT 
. 001440 000 SMAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS,M.S. BYTE 
001441 000 SMTYP1: .BYTE AMTYP1 ;;MEM. TYPE ,BLKA1 
3* MEM.TYPE BYTE -- (HIGH BYTE) 
3* 900 NSEC CORE=001 
3* 300 NSEC BIPOLAR=002 
;* 500 NSEC MOS=003 
001442 000000 SMADR1: .WORD AMADR1 ;;HIGH ADDRESS,BLK#1 
;* MEM.LAST ADDR. =3 BYTES, THIS WORD AND LOW OF ‘TYPE’ ABOVE 
001444 000 $MAMS2: .BYTE AMAMS2 ;;HIGH oy tet M.S. BYTE 
001445 000 SMTYP2: .BYTE AMTYP2 ;;MEM.TYPE,BLK 
001446 000000 SMADR2: .WORD AMADR2 ;;MEM.LAST ADDRESS,BLK&#2 
001450 000 SMAMS3: .BYTE AMAMSS ;;HIGH ADDRESS,M.S.BYTE 
001451 000 SMTYP3: .BYTE AMTYP3 ;;MEM.TYPE,BLK Lka3 
001452 000000 SMADR3: .WORD AMADRS ;;MEM.LAST tw eb mes 
001454 000 S$MAMS4: .BYTE AMAMS4 ;;HIGH ADDRESS,M 
001455 000 SMTYP4: .BYTE AMTYP4 Fei TYPE ,BLK thee 
001456 000000 SMADR4: .WORD AMADR4 sMEM.LAST ADDRESS ,BLK#4 
001460 000300 SVECT1: .WORD AVECT1 > IN TERRUPT VECTORA1, BUS PRIORITY#1 
001462 000000 $VECT2: .WORD AVECT2 {INTERRUPT VECTOR#2BUS PRIORITY#2 
001464 172410 $BASE: .WORD ABASE : sBASE ADDRESS OF EQUIPMENT UNDER TEST 
1466 000000 SDEVM: .WORD ADEVA sDEVICE MAP 
001470 000000 $CDW1: .WORD ACDW! {CONTROLLER DESCRIPTION WORD#1 
001472 000000 $CDW2: .WORD ACDW2 ;;CONTROLLER DESCRIPTION WORD#2 
001474 000000 $DDWO: .WORD ADOWO ;;DEVICE DESCRIPTOR WORD#0 
001476 000000 $DDW1: .WORD ADDW1 s DEVICE DESCRIPTOR WORDA1 
001500 000000 $DDW2: .WOR ADDW > ;DEVICE DESCRIPTOR WORDS 
001502 000000 $DDW3: .WOR ADDW s:DEVICE DESCRIPTOR WORD# 
001504 000000 DW4: .WORD ADDW4 s DEVICE DESCRIPTOR WORD#4 
001506 000000 $00W5: .WORD ADDWS ; DEVICE DESCRIPTOR WORD#S 
001510 000000 $DDW6: .WORD ADDW6 ;;DEVICE DESCRIPTOR WORD#6 
001512 000000 $DDW7: .WORD ADDW? : DEVICE DESCRIPTOR WORDS? 
001514 000000 $DDW8: .WORD ADDW8 : DEVICE DESCRIPTOR WORD#S8 
001516 000000 $DDW9: WORD ADDW9 : DEVICE DESCRIPTOR WORD#9 


— 
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APT MAILBOX-ETABLE SEQ 0043 
001520 000000 SDDW10: .WORD ADDWIO ;;DEVICE DESCRIPTOR WORD#10 
001522 000000 SDDW11: .WORD ADDW11 ;;DEVICE DESCRIPTOR WORDA11 
001524 000000 SDDW12: .WORD ADDWI2 ;;DEVICE DESCRIPTOR WORD#12 
001526 000000 SDDW13: .WORD ADDW13 ;;DEVICE DESCRIPTOR WORD#15 
001530 000000 SDDW14: .WORD ADDWI14 ;;DEVICE DESCRIPTOR WORD#14 
RES 000000 ogo At «WORD ADDWIS ;;DEVICE DESCRIPTOR WORD#15 


t 4 
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ERROR POINTER TABLE SEQ 0044 


-SBTTL ERROR POINTER TABLE 

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT on OCCUR. 

:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

S*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE, TABLE IS PERTINENT. 


S*NOTE1: If $ITEMB IS 0 THE ONLY PERTINENT DATA IS (SERR 
: *NOTE2: EACH ITER IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
te EM :POINTS TO THE ERROR MESSAGE 
;* DH ::POINTS TO THE DATA HEADER 
;* pT ‘POINTS TO THE DATA 
+ OF POINTS TO THE DATA FORMAT 
001534 SERRTB: 
1151 > ITEM 1 
1152 001534 044766 .WORD M2 :CANNOT ACCESS DR11 REGISTER 
1153 001536 050307 “WORD DH? ‘TEST # ERR PC ABRTPC REGISTER 
1154 001540 053052 ~WORD DT2 :$TESTN, SERRPC,OLDPC1,DREG,0 
1135 001542 000000 “WORD 0 “PRINT ALL DATA OCTAL 
1157 s ITEM 2 
1158 001544 045022 .WORD EM3 :DR11-B OR W MODE INCORRECT (0=B, 1=W) 
1159 001546 050350 ~ WORD DH3 ;TEST # ERR PC EXPMOD ACTMOD CSRADR 
1160 001550 053064 ~ WORD DT3 s$TESTN, SERRPC,S$TMP1,BORW,CSR,0 
1161 001552 000000 “WORD :PRINT ALL DATA OCTAL 
1163 SITEM 3 
1164 001554 045070 .WORD EMG : INIT FAILED TO CLEAR WCR 
1165 001556 050417 ~ WORD DH4 sTEST # ERR PC WCRADR WCRCONTENTS 
1166 001560 053100 ~ WORD DT4 s$TESTN, SERRPC,WCR,RWCR,O 
116? 001562 000000 “WORD 0 ‘PRINT ALL DATA OCTAL 
1169 SITEM 4 
1170 001564 045121 .WORD EMS s INIT FAILED TO CLEAR BAR 
1171 001566 050463 ~ WORD DHS sTeEST # ERR PC BARADR BAREXP BARRCV 
1172 001570 053112 ~ WORD OTS ;STESTN, SERRPC ,BAR,EBAR,RBAR ,O 
1173 001572 000000 “WORD “PRINT ALL DATA OCTAL 
1175 S1TEM 5 
1176 001574 045152 .WORD M6 : INIT FAILED TO CLEAR BDR 
1177 001576 050532 “WORD DH6 ‘TEST # ERR PC BDRADR BDRCONTENTS 
1178 001600 053126 “WORD DT6 '$TESTN, SERRPC,BDR,RBDR,O 
19 001602 000000 WORD 0 SPRINT ALL DATA OCTAL 
1181 Z1TEM 6 
1182 001604 045203 .WORD M7 : INIT FAILED TO CLEAR ALL CSR R-w BITS 
1183 001606 050576 -WORD DH? TEST ’ ERR PC CSRADR CSREXP CSRCONTENTS 
1184 001610 053140 “WORD DT? “$TESTN, SERRPC,CSR,ECSR,RCSR,O 
1185 001612 000000 “WORD 0 ‘PRINT ALL DATA OCTAL 
1187 :1TEM 7 
1188 001614 045251 .WORD M10 :RESET FAILED TO CLEAR WCR 
1189 001616 050417 “WORD  DH4 “TEST # ERR PC WCRADR WCRCONTENTS 
1190 001620 053100 "WORD DT4 “$STESTN, SERRPC ,WCR,RWCR,O 
1191 001622 000000 .W 0 =PRINT ALL DATA OC TAL 
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‘ERROR POINTER TABLE 


=" 
_ 
Oo 
~m 


3 

4 

5 

6 

7 

8 

9 

1 

4 001642 000000 
4, 

001644 045400 
7 

; 001652 000000 
0 

1 001654 045450 
¢ 001656 050652 
4 001660 053154 
? 001662 9000000 
7 

8 001664 045537 
3 001666 050652 
1 001670 053154 
¢ 001672 000000 
4 

5 001674 045563 
; 001676 050765 
8 001700 053172 
. 001702 000000 
1 
2 
3 
34 
35 
36 
37 
38 
3 
4 

4 
4 
4 


001704 045607 


001732 000000 


;1TEM 10 


s ITEM 11 


s1TEM 12 


;1TEM 13 


ITEM 14 


;1TEM 15 


: ITEM 16 


sI1TEM 17 


WORD 
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;ATTEMPT TO SET ALL WCR BITS FAILED 
TEST # ERR PC WCRADR WCRCONTENTS 
sSTESTN,SERRPC,WCR,RWCR,O 

;PRINT ALL DATA OCTAL 


;RESET FAILED TO CLEAR BAR 

;TEST # ERR PC BARADR BAREXP BARRCV 
;$TESTN, SERRPC ,BAR,EBAR,RBAR ,0 

;PRINT ALL DATA OCTAL 


;ATTEMPT TO SET ALL BAR BITS TO 1 FAILED 
;TEST # ERR PC BARADR BAREXP BARRCV 
;STESTN, SERRPC BAR, EBAR,RBAR ,0 

;PRINT ALL DATA OCTAL 


;CSR BIT TEST wa - DIAGNOSTIC NOT CONTINUED) 
[TEST # ERR PC TESTED CSRADR CSREXP CSRCONTENTS 

7 STESTN, SERRPC ,BUT,CSR,ECSR,RCSR,0 

;PRINT ALL DATA OCTAL 


;CSR BIT TEST dea ti TPT 

:TEST # ERR PC TESTED CSRADR CSREXP CSRCONTENTS 
;STESTN, SERRPC ,BUT,CSR,ECSR,RCSR,0 

;PRINT ALL DATA OCTAL 


:EiR BIT TEST FAILED 

“TEST # ERR PC TESTED EIRADR EIREXP EIRCONTENTS 
“$TESTN, SERRPC BUT, CSR,EEIR,REIR,O 

“PRINT ALL DATA OCTAL 


;READY AND MAINTENANCE ARE NOT THE ONLY BITS SET IN CSR 
TEST # ERR PC CSRADR CSREXP CSRCONTENTS 

sSTESTN, SERRPC,CSR,ECSR,RCSR,0 

;PRINT ALL DATA OCTAL 


;ATTN AND ERROR FAILED TO SET PROPERLY 

TEST # ERR PC CSRADR CSREXP CSRCONTENTS 
;STESTN, SERRPC,CSR,ECSR,RCSR,0 

;PRINT ALL DATA OCTAL 


;ATTN AND ERROR FAILED TO CLEAR PROPERLY 
TEST #@ ERR PC CSRADR CSREXP CSRCONTENTS 
;STESTN, SERRPC,CSR,ECSR,RCSR,O 

;PRINT ALL DATA OCTAL 


SEQ 0045 


001752 


AOAMAAAMAANNGTNT SE 
CO OONOUE WHO Ow 

Oo 

oO 

— 

N 

P 

> 


1 001754 


6 
6 
63 001760 
re: 001762 


9 4 th th se A th ee te ey 4 


; 001772 


4 001776 
5 002000 


6 
7 
7 
72 
73 001774 
7 
7? 
76 002002 
zs 


2 

284 

285 002014 
286 002016 
287 002020 
288 002022 
289 
2 
2 
2 


90 
91 002024 

96 
97 002034 
8 002036 


99 002040 
00 002042 


CZDRLCO-DRi1 GEN NPR INTFC 
ERROR POINTER TABLE 


000000 


046124 


000000 


056155 
050463 
053112 
000000 


046302 
051100 
053210 
000000 


046349 


000000 


046404 


000000 


046425 


000000 


046516 


000000 
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; ITEM 


; ITEM 


;1TEM 


;1TEM 


:1TEM 


;1TEM 


;1TEM 


;1TEM 


; ITEM 


21 


22 
.W 


31 


SSTESTN, SERRPC,CSR,ECSR,R 
;PRINT ALL DATA OCTAL 


;ERROR BIT SHOULD HAVE BEEN CLEAR 
;TEST # ERR PC  CSRADR acead. CSRCONTENTS 


;READY Pa CSR WAS NOT SET 

;TEST # ERR PC CSRADR CSREXP CSRCONTENTS 
:$TESTN, SERRPC ,CSR,ECSR,RCSR,O 

PRINT ALL DATA OCTAL 


;BI1T 0 OF THE BAR WAS SET 

:;TEST # ERR PC BARADR BAREXP BARRCV 
;STESTN, SERRPC ,BAR ,EBAR,RBAR ,0 

;PRINT ALL DATA OCTAL 


sFUNCTION BIT(S) ARE NOT CLEAR 

;TEST # ERR PC CSRADR CSREXP CSRCONTENTS 
TSTESTN, SERRPC ,CSR,ECSR,RCSR,O 

SPRINT ALL DATA OCTAL 


;DSTAT A, B OR C ARE NOT AS EXPECTED 

;TEST # ERR PC CSRADR CSREXP CSRCONTENTS 
:STESTN, SERRPC ,CSR,ECSR,RCSR,O 

PRINT ALL DATA OCTAL 


;BDR IS NOT CLEAR 

TEST # ERR PC BDRADR BDRCONTENTS 
;STESTN, SERRPC ,BDR,RBOR,O 

;PRINT ALL DATA OCTAL 


;ALL_BDR BITS ARE NOT SET 
;TEST # ERR PC BDRADR BDRCONTENTS 
:STESTN, SERRPC ,BDR,RBDR,O 


SPRINT ALL DATA OCTAL 


;BDR SHOULD NOT HAVE BEEN LOADED WITH NEW PATTERN 
TEST # ERR PC BDRADR BDREXP BDRCONTENTS 
;STESTN, SERRPC,BDR,EBDR,RBDR ,O 

;PRINT ALL DATA OCTAL 


;BDR PATTERN NOT CORRECT 

TEST # ERR PC BDRADR BDREXP BDRCONTENTS 
sSTESTN, SERRPC ,BDR,EBDR,RBDR ,O 

;PRINT ALL DATA OCTAL 


SEQ 0046 


I 4 
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ERROR POINTER TABLE SEQ 0047 


1301 ;ITEM 32 
1308 002044 046627 . WORD 


—EM37 1 IS = THE ONLY BIT SET 
1303 002046 051100 WORD DH17 ;TEST # ERR PC CSRADR atin a CSRCONTENTS 
1304 002050 053210 WORD D117 :$TESTN, SERRPC,CSR,ECSR,RCSR,0 
| ge 002052 000000 -WORD 0 :PRINT ALL DATA OCTAL 
1307 ;1TEM 33 
1308 002054 046665 WORD —EM4O 47 ts SHOULD NOT BE SET 
1309 002056 051100 ~ WORD DH17 : TEST ERR PC CSRADR CSREXP CSRCONTENTS 
1310 002060 053210 WORD OT17 ‘ STESTN, SERRPC,CSR,ECSR,RCSR,0 
tof 002062 000000 -WORD 0 :PRINT ALL DATA OCTAL 
1313 sI1TEM 34 
1314 002064 046715 WORD EM41 ;READY Ra Ss me BUT NEVER SET AGAIN 
1315 002066 051100 WORD DH17 :TEST # ERR PC CSRADR CSREXP CSRCONTENTS 
1316 002070 053210 WORD DT17 “$TESTN, SERRPC,CSR,ECSR,RCSR,0 
137 002072 000000 -WORD 0 :PRINT ALL DATA OCTAL 
1319 sITEM 35 
1320 002074 047017 . WORD EM43 sDR11 FAILED TO INTERRUPT 
1321 002076 051360 . WORD DH43 sTEST # ERR PC CSRADR CSRCONTENTS 
1322 002100 053270 .» WORD D143 :STESTN, SERRPC,CSR,RCSR,0 
esi 002102 000000 -WORD 0 PRINT ALL DATA OCTAL 
1325 : ITEM 36 
1326 002104 047050 » WORD EM44 3DR11 INTERRUPTED, BUT IT SHOULDN'T HAVE 
1327 002106 051360 WORD DH43 sTEST # ERR PC CSRADR CSRCONTENTS 
1328 002110 053270 WORD D143 sSTESTN, SERRPC,CSR,RCSR,0 
+4 002112 000000 -WORD 0 PRINT ALL DATA OCTAL 
1331 ITEM 37 
1332 002114 047120 . WORD EM45 ;ERROR BIT SHOULD NOT BE CLEAR 
1533 002116 051100 WORD DH17 sTEST # ERR PC CSRADR CSREXP CSRCONTENTS 
1334 002120 053210 . WORD DT17 sSTESTN, SERRPC,CSR,ECSR,RCSR,0 
13a 002122 000000 WORD 0 ;PRINT ALL DATA OCTAL 
1337 ;1TEM 40 
1338 002124 047233 . WORD EM47 3CSR IS WRONG 
1339 002126 051100 » WORD DH17 sTEST # ERR PC CSRADR CSREXP CSRCONTENTS 
1340 002130 053210 . WORD D117 sSTESTN, SERRPC,CSR,ECSR,RCSR,0 
tea 002132 000000 «WORD 0 PRINT ALL DATA OCTAL 
1343 sITEM 41 
1344 002134 047250 WORD E50 ; TRANSFERS SHOULD HAVE BEEN INHIBITED 
1345 002136 051424 WORD DHSO >TEST # ERR PC WCRADR WCREXP WCRRCV BARADR BAREXP BARRCV 
1346 002140 053302 WORD D150 ‘$TESIN, SERRPC ,WCR,EWCR,RWCR,BAR.EBAR,RBAR,O 
Ht 4 002142 000000 . WORD 0 ;PRINT ALL DATA OCTA L 
1349 sITEM 42 
1350 002144 047315 WORD —EMS1 :0R11 SHOULD NOT HAVE INTERRUPTED ° SECOND TIME 
| 1351 002146 051360 WORD DH43 >TEST # ERR PC CSRADR CSRCONTENTS 
1352 002150 053270 WORD D143 :$TESIN, SERRPC,CSR,RCSR,0 
1353 002152 000000 -WORD 0 “PRINT ALL DATA OCTAL 
| 


‘CZDRLCO-DRi1 GEN NPR INTFC 


ERROR POINTER TABLE 


1354 

355 002154 
356 002156 
357 002160 
358 002162 
359 
en 
361 002164 
362 002166 
3 002170 
4 002172 


oo 


367 002174 
368 002176 
69 002200 
70 002202 
6 


2 
73 002204 
374 002206 
376 002210 
377 002212 

8 

9 
380 002214 
381 002216 
382 
383 002220 
384 002222 
3 
5 


ec ee kt od ed = 


000000 


047463 


000000 


047500 
051304 
053254 
000000 


047556 
051602 
053342 
000000 
047606 
051747 
053362 
000000 
047645 
000000 
047730 
000000 


047777 
052225 
053436 
000000 
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;1TEM 


s ITEM 


;1TEM 


;1TEM 


7; 1TEM 


s ITEM 


;1TEM 


;1TEM 5 


;ITEM 5 


43 


SEQ 0048 


shyeye ise th ae DID NOT OCCUR 

RR PC CSRADR CSRCONTENTS 
SSTESIN, SERRPC,CSR,RCSR,0 
PRINT ALL DATA OCTAL 


4 Ht 1S WRONG 
;TEST # ERR PC BARADR BAREXP BARCONTENTS 
SSTESTN, SERRPC BAR, EBAR,RBAR, 


PRINT ALL DATA OCTAL 


;BAD DATA IN BDR 

;TEST # ERR PC BDRADR BDREXP BDRCONTENTS 
:STESTN, SERRPC ,BDR,EBDR,RBDR, 

;PRINT ALL DATA OCTAL 


i BUFFER DATA NOT CORRECT 
CHECK CHECK INPUT ~~ INPUT 

[TEST # ERR PC BUFADR BUFDAT BUFADR BUFDAT 

SSTESTN, SERROC ,STMP4 ,$TMP2,STMP5,STMP3,CSR,0 


CSRADR 


PRINT ALL DATA OCTAL 


: 100 MANY WORDS a + # Madan 


STEST # ERR PC EXPECT ADRESS CSRADR 
[STESTN, SERRPC,STMP2,STMP3,CSR,0 
PRINT ALL DATA OCTAL 


;UNEXPECTED TRAP OR INTERRUPT TO TRAP ADDRESS BELOW 
;TEST # ERR PC WCRADR OLDPC _ TRAP ADR 

TSTESTN, SERRPC ,WCR,OLDPC2,BDVECT,O 

PRINT ALL DATA OCTAL 


;CSR AND-OR WCR AND-OR BAR ARE INCORECT 


sTEST # ERR PC WCRADR WCREXP WCRRCV CSREXP CSRRCV BAREXP BAR 


SSTESTN, SERRPC,WCR,EWCR,RWCR,ECSR,RCSR,EBAR,RBAR ,O 
PRINT ALL DATA OCTAL 


7Dk11 INTERRUPTED AT WRONG LEVEL 
;TEST # ERR PC 
sSTESTN, SERRPC ,DRLEV,LEVEL,CSR,0 
;PRINT ALL DATA OCTAL 


EXPLVL RCVLVL_ CSRADR 


:DR11 FAILED Ms INTERRUPT 

T # ERR PC EXPLVL_ CSRADR 
ISTESTN, SERRPC, STMT CSR,0 
SPRINT ALL DATA OCTAL 


r — 
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ERROR POINTER TABLE 


| 4409 ITEM 54 


1410 002264 050037 -WORD €&M65 ;2-N CYCLE BURST SWITCH IN WRONG POSITION 
1411 002266 052333 «WORD DH65 ;TEST # ERR PC CSRADR EIREXP EIRRCV 
1412 002270 053464 «WORD 0165 i STESTN, SERRPC ,CSR,EEIR,REIR,O 

1413 002272 000000 -WORD 0 SPRINT ALL DATA OCTAL 


| 


SEQ 0049 


Do 


4 
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OR POINTER TABLE SEQ 0050 


1414 002274 ER200: ;THIS IS THE STARTING POINT FOR ERROR MESSAGES 201 


Let tf ITER 201 : THROUGH 277. THEY ARE USED FOR MULTIPLE ERROR MESSAGES. 
1417 002274 047556 » WORD EMS7 ; BUFFER DATA NOT CORRECT 

1418 002276 051602 “WORD DH57 CHECK CHECK INPUT INPUT 
1419 TEST # ERR PC BUFADR BUFDAT BUFADR BUFDAT CSRADR 
1420 002300 053342 » WORD D157 “$TESTN, SERRPC,STMP4 ,STMP2,STMPS,STMP3,CSR,0 
1421 002302 000000 "WORD 0 ‘PRINT ALL DATA OCTAL 

1423 : ITEM 202 

1424 002304 050153 ~ WORD EM202 ;CSR PATTERN NOT CORRECT 

1425 002306 052451 ~ WORD DH202 :TEST # ERR PC CSRADR PATLDD CSREXP CSRRCV 
1426 002310 053514 ~ WORD DT202 sSTESTN, SERRPC,CSR,BUT,ECSR,RCSR,0 

1427 002312 000000 "WORD 0 :PRINT ALL DATA OCTAL 

1429 : ITEM 203 

1430 002314 046206 »WORD EM26 :BIT PATTERN TEST FAILED IN BAR 

1431 002316 051230 ~ WORD DH26 :TEST # ERR PC BARADR BAREXP BARCONTENTS 
1432 002320 053240 » WORD DT26 sSTESTN,SERRPC,BAR,EBAR,RBAR, 

1433 002322 000000 "WORD 0 :PRINT ALL DATA OCTAL 

1435 sITEM 204 

1436 002324 046245 ~ WORD EM27 ;WCR DATA PATTERN NOT CORRECT 

1437 002326 051154 ~ WORD DH23 :TEST # ERR PC WCRADR WCREXP WCRCONTENTS 
1438 002330 053224 “WORD DT23 =: $TESTN, SERRPC,WCR,EWCR,RWCR,O 

Ph 4 002332 000000 ~WORD 0 *PRINT ALL DATA OCTAL 

1441 ; ITEM 205 

1442 002334 046577 .WORD EM36 ;BDR PATTERN NOT CORRECT 

1443 002336 051304 ~ WORD DH34 :TEST # ERR PC BDRADR BDREXP BDRCONTENTS 
1444 002340 053254 “WORD D134  ;$TESTN,SERRPC,BDR,EBDR,RBDR,O 

1445 002342 000000 "WORD 0 [PRINT ALL DATA OCTAL 

4 

1447 s ITEM 206 

1448 002344 047435 » WORD —EMS3 sWCR NOT hee TO ZERO 

1449 002346 052670 ~ WORD DH210 sTEST # ERR PC WCRADR WCRCONTENTS 

1450 002350 053564 "WORD DT210 :$TESTN,SERRPC,WCR,RWCR,O 

163) 002352 000000 » WORD 0 sPRINT ALL DATA OCTAL 

1453 : ITEM 207 

1454 002354 047463 WORD EM54 iBAR 1S WRONG 

1455 002356 051230 » WORD DH26 :TEST # ERR PC BARADR a BARCONTENTS 
1456 002360 053240 . WORD D126 “$TESIN, SERRPC ,BAR,EBAR,RBAR 

Ht 14 002362 000000 » WORD 0 PRINT ALL DATA OCTAL 

1459 ITEM 210 

1460 002364 047520 . EMS6 sDATA NOT TRANSFERED CORRECTLY 

1461 002366 051523 ~ WORD DH56 sTEST # ERR PC WNPRIAD NPRIEX NPRIRC CSRADR 
1462 002370 053324 "WORD D156 :$TESTN.SERRPC, ANPR1,ENPR1,NPR1,CSR,0 

pe 04 002372 00 » WORD 0 *PRINT ALL DATA OCTAL 

1465 ITEM 211 

1466 002374 050203 ~ WORD —M211 At AND-OR WCR AND-OR BAR ARE INCORECT 

1467 002376 052734 .~ WORD DH211 sTEST # ERR PC WCRADR WCREXP WCRRCV tay bed BDRRCV BAREXP BAR 
1468 002400 053576 "WORD DT211 :$TESTN,SERRPC,WCR,EWCR,RWCR,ECSR,RCSR,EBAR RBAR,O 
1469 002402 000000 “WORD 0 [PRINT ALL DATA OCTAL 
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ERROR POINTER TABLE SEQ 0051 
1470 s1TEM 212 
1471 002404 047156 WORD EM46 sFUNCTION BITS DIDN'T INCREMENT IN MAINT MODE 
1472 002406 051100 WORD DH17 S TEST # ERR PC CSRADR CSREXP CSRCONTENTS 
1473 002410 053210 «WORD DT17 SS$TESTN, SERRPC,CSR,ECSR,RCSR,0 
1474 002412 000000 WORD 0 ;PRINT ALL DATA OC TAL 


—__- --- - -- --  -r— Ce - - --- 7 -_—— -—— - —-—--- --—-—- -—--—- -- _ ---—- ———— —___-— 
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STORAGE LOCATIONS SEQ 0052 
1475 -SBTTL STORAGE LOCATIONS 
1476 [Ree eeeeeeeeeeeeeeeeeeenereereeeteeneneeeeneneneeeneeenererenteeees 
1477 : 
1603 : STORAGE LOCATIONS 
1480 [eeeeeeeeeeeeeeeeeeeeeeedeeenereeneeeneeneneneeeeeeeeeeeeneerenere 
1481 
re 3 002414 000001 QTYBRD: .WORD 1 TOTAL # DR11 BOARDS BEING TESTED (DEFAULT = 1) 
1484 002416 REGADR: .BLKW 16. ; TOTAL: 16 LOCATIONS FOR BOARD ADDRESSES 
Me +4 002456 VECADR: .BLKW 16. ; TOTAL: 16 LOCATIONS FOR VECTOR ADDRESSES 
re 14 REGISTER AND VECTOR ADDRESS STORAGE LOCATIONS FOR THE DR11 UNDER TEST 
1489 [eee eeeeeeeeeeeeeeeeeeeeeeeeeeeteAAeeeteeeteeedeneteneeereeeeetenee 
1490 7D0 NOT INSERT ANY ITEMS BETWEEN ANY OF THE LOCATIONS BELOW 
1491 OTT IT ITI TTT TTT itt iti itt titi iit iii tiie aT, 
1492 0025 000000 WCR: -WORD 0 
1493 002520 000000 BAR: «WORD 0 
1494 002522 000000 CSR: «WORD 0 
1495 002524 000000 BOR: «WORD 0 
1496 002526 000000 DRINV: .WORD 0 
1497 002530 000000 DRVS: .WORD 0 
1498 002532 000000 SDRINV: .WORD 0 
1499 002534 000000 SDRVS: .WORD 0 
1500 [ERRRReAReeeeeeKeeeAeeeeeeeeeeeAAeAeeAAeeeeAAAeeAAAeeeereeeeeeees 
1501 D0 NOT INSERT ANY ITEMS BETWEEN ANY OF THE LOCATIONS ABOVE 
1502 POTTITITITITITITITITITILITT TLL LLL LLL LLL LLL 
1503 002536 000000 BuT: -WORD 0 ;BIT(S) UNDER TEST LOCATION 
1504 002540 000000 LEVEL: .WORD 0 ;BR LEVEL LOCATION 
1505 002542 000000 BDVECT: .WORD 0 
1506 002544 000000 DEVMSK: .WORD 0 
1507 002546 000000 TABINX: .WORD 0 
1508 002550 000000 DREG: .WORD 0 
1509 002552 000000 DRLEV: .WORD 0 
1510 002554 000000 NXTTST: .WORD 0 
13} 002556 000000 PASCNT: .WORD 0 
1513 002560 000000 RCSR:  .WORD 0 CSR ACTUALLY READ FROM DEVICE UNDER TEST 
1514 002562 000000 REIR: .WORD 0 EIR ACTUALLY READ FROM DEVICE UNDER TEST 
1515 002564 000000 RBDR: .WORD 0 7BDR ACTUALLY READ FROM DEVICE UNDER TEST 
1516 002566 000000 RBAR: .WORD 0 BAR ACTUALLY READ FROM DEVICE UNDER TEST 
Ht 3 4 002570 000000 RWCR: WORD 0 sWCR ACTUALLY READ FROM DEVICE UNDER TEST 
1519 002572 000000 ECSR: .WORD 0 CSR EXPECTED 
1520 002574 000000 EEIR:  .WORD 0 sEIR EXPECTED 
1521 002576 000000 EBDR: .WORD 0 BOR EXPECTED 
136¢ pasens EBAR: .WORD 0 BAR EXPECTED 
152 BaSeD EWCR: .WORD 0 sWCR EXPECTED 
1524 002604 ENPR1: .WORD 0 EXPECTED OF NPRI 
1362 00 2612 ANPR1: .WORD NPRI sADDRESS OF NPR 
15 ] 002610 000000 BORW: .WORD 0 
136 oo 61 936382 NPR1: WORD $5452 
1528 002614 17 DIOMEM: .WORD 173000 
1529 Baseon 0450 INBUF: .WORD XINBUF 
15 26 1452 CHKBUF: .WORD XCHKBU 
1531 002622 BUFLEN: .WORD 0 
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STORAGE LOCATIONS SEQ 0053 
1532 002624 000000 LENCHK: .WORD 0 
1533 002626 000000 BRWAIT: .WORD 0 
1534 002630 006000 WCLEN: .WORD 0 
1535 002632 000000 RDYCHK: .WORD 0 
1536 002634 177560 TKS: «WORD 177560 
1537 0026 177562 TKB: «WORD 177562 
1538 002640 177564 TPS WORD 177564 
1539 002642 177566 TPB -WORD 177566 
1540 002644 000000 MSG 0 
1541 002646 000000 ADD WORD 0 
1542 002659 00000 MESSAG: .WORD 0 
1543 002652 000000 FLAG WORD 0 
1544 002654 000000 FNCCNT: .WORD 0 
1545 002656 000000 INBUF1: .WORD 0 
1546 002660 000000 TIME: WORD 0 ;GENERAL PURPOSE TIMER 
1547 002662 000000 LOOP: WORD 0 ;GENERAL PURPOSE LOOP COUNTER 
1548 000000 ANSWER: .WORD 0 
1549 002666 000000 BDFAIL: .WORD 0 
1550 0000 MANSIZ: .WORD 0 
1551 002672 0000 OLDPC1: .WORD 0 ;LOCATION TO STORE RETURN PC IN SUBROUTINES WITH ERROR CALLS 
1552 002674 000000 OLDPS1: .WORD 0 ;LOCATION TO STORE PS 
1553 002676 000000 OLDPC2: .WwORD 0 ;LOCATION TO STORE RETURN PC IN SUBROUTINES WITH ERROR CALLS 
1554 0027 000000 OLDPS2: .WORD 0 ;LOCATION TO STORE PS 
1555 002702 000000 OFL: WORD 0 sFIRST CHAR FLAG 
1556 002704 00000 LRGSTC: .WORD 0 ;LOCATION FOR LARGEST NUMBER CHARACTER FOR THE READ SUBROUTINE 
1557 0027 00000 EOPLOC: .WORD 0 ;LOCATION TO HOLD FLAG DECIDING IF EOP MSGS ARE TO BE PRINTED 
1558 002710 000000 BITTST: .WORD 0 ;LOCATION TO PUT THE BIT STATE TO PRINT - USED BY SUBROUTINE PSTATE 
1559 002712 000000 MEMGMT: .WORD 0 ;LOCATION TO HOLD FLAG SAYING MEMORY MANAGEMENT IS AVAILABLE 
1560 002714 000000 ERRCNT: .WORD 0 LOCATION TO HOLD TOTAL ERRORS FOR A PARTICULAR TEST 
1561 002716 000000 $PASS2: .WORD 0 ;LOCATION TO HOLD OVERFLOW PASS NUMBER 


a-_ 


co + — — ——— oe a eS 
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‘DEVICE DESCRIPTOR WORD BIT DESCRIPTION SEQ 0054 
| 
| 1562 LSBTTL DEVICE DESCRIPTOR WORD BIT DESCRIPTION 

1553 RACER AERA AA AAA ER EERE REE A AAA AA AAA AAA AREER THAR AR AARAAA AAA A EAE 

1364 : DESCRIPTION OF BITS IN THE DDW (DEVICE DESCRIPTOR WORD): 

1566 ; BIT 0 DR11-w=0, DR11-B=1 

1567 : BIT 1 2 CYCLe=6, N CYCLE=1 

1568 : BIT 2. CABLE SOESN" T OEAdgT= 0, CABLE DOES EXIST=1 

1569 : BITS \ 

1570 ; BIT 6 > BR PRIORITY 

137 : BIT / 

1573 002720 000000 DDwW: ~ WORD 0 sLOCATION FOR STORAGE OF THE DEVICE DESCRIPTOR WORD 


co 


[ —— 


CZDRLCO-DRi1 GEN NPR INTFC 
SUBROUTINE TO INPUT A CHARACTER OR UP TO A 6 DIGIT NUMB 


1599 002750 
1600 002754 
1601 002762 
1602 002764 
1603 002770 
1604 002772 
1605 003000 
1006 003002 
1607 003006 
1608 003010 
1609 003016 
1610 003022 
1611 003030 
1612 003032 
1613 003040 
1614 003042 
1615 003046 
1616 003052 
1617 003054 
1618 003056 
1619 003060 
1620 003062 
1621 003064 
1622 003066 
1623 003074 
1624 003076 
1625 003102 
1626 003104 
1627 003112 
1628 003114 
1629 005120 
1630 003124 


005004 
105737 


S 


Sesnale- 
MWoOWSoNr 
NO 
— 
o 


_ 
SssSSsxSnsse 
OFM WON NS YI 
VEN NONONW Ww 
Soses¥szr=— 

a ee te | _ 


030707 
030707 
030707 
002664 
000003 
035073 
000033 
034762 
002664 
035071 
000057 
002704 


002664 
000060 


000071 
000007 
000015 


000002 
001405 


SS a ae ee 
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002664 


002664 


002664 


035071 


002664 
002664 


002704 


002664 


.S3TTL SUBROUTINE TO INPUT A CHARACTER OR UP TO A 6 DIGIT NUMBER 


WITTTITTIITITI TITEL TTI TLITLI LLL LLL LLL LLL 


** * * * * een * * * aes 


Ps 
: 
‘ 
P 
Py 
Ps 
Py 
Py 
: 
Py 
Ps 
Ps 
Ps 
Ps 
Py 
Ps 
e 


READ: 
1$: 
2$: 
3$: 


4$: 


5$: 


6$: 


THIS SUBROUTINE IS USED IN THE EDIT ROUTINE TO INPUT NUMBERS AND A 
E R3 TO BE LOADED WITH THE NUMBER OF DIGITS 

. F A NON-NUMERIC CHARACTER IS 

INPUTED, LEAVING THE CHARACTER IN LOCATION ‘ANSWER’. IF A NUMERIC 


THE VALUE OF THE DIGIT INPUTED, AND ADD IT TO R4, WHICH WAS CLEARED 
LOCATION ‘thse’ IS a BE ie a 


THE NUMBER DIGIT EQUAL TO OR LESS THAN THIS DIGIT. IT WILL ONLY ACCEPT 
THE MAXIMUM NUMBER OF DIGITS SPECIFIED BY R3, PRINTING A <CRLF> WHEN 
THAT LIMIT IS REACHED. IF A <CR> IS INPUTED BEFORE THE MAXIMUM IS 
REACHED, ROUTINE EXITS LEAVING THE INPUTED NUMBER IN R4. 


RRR AAA ERATE EAE REAR RERA AAA ARERAAAERERARAARERERAARERAEE 


CiR R4 ;CLEAR THE CHARACTER RECEIVER 
TSTB CHARCT 7SEE IF A CHARACTER WAS INPUTED DURING PRINTING 
BEQ 1$ :BRANCH TO INPUT A CHARACTER IF NOT 
MOVB CHARCT, ANSWER ;MOVE THE CHARACTER TO THE ANSWER LOCATION 
CLRB CHARCT ;CLEAR THAT SUCKER 
R 2$ :G0 CHECK IT OUT, YOU DUMMY 
RDCHR ;GET A CHARACTER 
MOV (SP)+, ANSWER [POP INPUTED CHARACTER OFF STACK 
CMP #CNTLC,ANSWER ;SEE IF A “C WAS INPUTED 
BNE 3$ : BRANCH AROUND ITS PRINTING IF NOT 
TYPE /CNTRLC TVPEs. **E° 
BR 6$ :KICK OUT OF THIS ROUTINE 
CMP WESC ANSWER ;SEE IF AN <ESC> WAS INPUTED 
BNE 4$ BRANCH AROUND | ITS PRINTING IF NOT 
TYPE , ESCAPE :TYPE: ‘<ESC> 
BR é$ :KICK OUT OF THIS ROUTINE 
MOVB :MOVE CHARACTER FOR PRINTING 


wreck ,-LETNCR 


ETNCR 3GO0 TYPE THE INPUTED CHARACT 
CMP #7 ANSWER 


ER 
7SEE IF A NON-NUMERIC/ALPH CHARACTER WAS INPUTED 


SEQ 0055 


BPL 5$ ;BRANCH TO R4 TEST IF SO 

CMPB LRGSTC,ANSWER ;SEE IF A NON-OCTAL/NUMERIC CHARACTER WAS INPUTED 
BMI 6$ ;BRANCH TO EXIT IF SO 

MOV ANSWER ,-(SP) sMOVE ASCII TO STACK FOR PREPARATION 

BIC #60, (SP) :;CLEAR ALL BUT THE NUMBER INPUTED 

ASL R4 SHIFT R4 Hn PLACES 

ASL R4 :TO MAKE ROOM FOR 

ASL R4 ;THIS CHARACTE 

ADD (SP)+,R4 ;ADD THE OCTAL NUMBER TO R 

DEC R3 ;SUBTRACT 1 FROM THE LOOP COUNTER AND 

BNE 1$ SBRANCH BACK if NOT ALL CHARACTERS INPUTED 

CMPB #'9,LRGSTC 7SEE IF NUMBER IS TO BE DECIMAL 

BNE 6$ BRANCH IF NOT 

CMP #7,R4 7SEE IF INPUTED NUMBER IS 7 OR LESS 

BrL 6$ BRANCH IF S 

CMP #CARETN, ANSWER ;SEE IF CARRIAGE RETURN WAS INPUTED 

BEQ 6$ ;BRANCH IF SO - R4 IS CORRECT 

ADD #2,R4 ADD 2 TO R4 TO MAKE OCTAL NUMBER THE DECIMAL EQUIVALENT 
ince sae :PRINT A <CRLF> 


ergy 


‘CZDRLCO-DRi1 GEN NPR INTFC 
“SUBROUTINE TO CAPTURE UNIT #, PASS # & TOTAL ERRORS 


.SBTTL SUBROUTINE TO CAPTURE UNIT #, PASS # & TOTAL ERRORS 


WETTTITITETITILITITITE LITTLE 


THIS SUBROUTINE IS CALLED BY SEOP AND ENDEV TO SAVE THE UNIT NUMBER, 
PASS NUMBER, AND TOTAL ERRORS FOR THAT DEVICE/PASS FOR SAVING WHENEVER 
A DEVICE PASS CONTAINS ERRORS. 


RRR EAEAREREAE AAA AAARAARAAAAAAAAARAERAAAAREKAAEAAATAEE 


| 1631 


| 46 
16 
16 
16 
16 
1638 
1639 003126 
1640 003134 
1641 003136 


1647 003166 


022737 


000207 


044736 042454 ERCAPT: 


042454 


042454 


-* 
‘* 
-* 


Be ee Be Se Be oe 


CMP 


lear Vo ts | 5 
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#ENDSTK,CAPNTR 
1$ 


CAPNTR,RO 
SUNIT, (RO) + 
$PASS2, (RO) 
$PASS, (RO) + 
SERTTL, (RO)* 
RO,CAPHTR 


SEE IF STACK Aa FULL OF BULL 

KICK OUT IF FU 

;MOVE CAPNTR CONTENTS TO RO 

;PUT UNIT NUMBER ON STACK 

:PUT OVERFLOW PASS NUMBER ON STACK 
;PUT PASS NUMBER ON STACK 

:PUT TOTAL ERRORS ON STACK 

5 a CAPNTR TO NEW POINTER VALUE 


SEQ 0056 


= 
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SUBROUTINE TO PRINT THE DATA STORED BY SUBROUTINE ERCAPT SEQ 0057 
1648 .SBITL SUBROUTINE TO PRINT THE DATA STORED BY SUBROUTINE ERCAPT 
1649 PRRAAAAA AERA ARERR AAA T AREA AAA HAART AAA AAA A AAA TAAAR ARATE RARE HE 
1650 3 
1651 ie THIS SUBROUTINE I$ INVOKED BY ENTERING (*Y) DURING THE EXECUTION oF THE 
1652 ;* TEST. IT PRINTS ALL DATA STORED IN THE 'CAPSTK’ STACK STORED BY THE 
1653 ie ‘ERCAPT' SUBROUTINE, REINITIALIZES THE POINTER, AND RETURNS. *DATA® 
1654 te *PRINTED*1S*LOST® BECAUSE OF THE REINITIALIZATION OF THE COUNTER. 
** 
1656 WUTTTTTTITITITITITITITITIILI LLL LLL LLL LiL iis 
1657 003170 022737 042456 042454 ePTCAPT: CMP #CAPSTK,CAPNTR ;SEE IF THERE IS ANY DATA TO PRINT 
1658 003176 001003 BNE 1$ ‘BRANCH TO PRINT IT IF THERE I5 
1659 003200 104401 034211 TYPE NODATA s TYPE: _" ERROR TOTALS TO REPORT’ 
1660 003204 000462 BR 7$ SKICK OUT 
1661 003206 022737 044736 042454 18: CMP MENDSTK,CAPNTR ;SEE IF STACK IS FULL OF BULL 
1662 003214 001002 BNE 23 BRANCH AROUND STACK IS FULL | WESSAGE IF NOT 
1663 003216 104401 934020 TYPE eSTKIFL TYPE: "STACK IS FULL - DATA MAY HAVE BEEN L 
ete 003222 104401 034073 2$: TYPE »ERCHDR i TYPE: 4 ytd Sel a enaTit BEGINNING. oe Yast REPORT’ 
1666 003226 012700 042456 MOV #CAPSTK,RO “MOVE ADDRESS OF STACK TO PRINT TO RO 
1667 003232 012701 000020 MOV #16.,R1 ;MOVE 16 BOARDS TO SEARCH TO RO 
1668 003236 005037 001362 CLR STMPi “CLEAR $TMP1, DEVICE POINTER 
1669 003242 021037 001362 3$: CMP (RO), STMP1 “SEE IF UNIT NUMBER IS TO PRINT 
1670 003246 001403 BEQ 4$ ‘BRANCH TO PRINT DATA IF SO 
1671 903250 062700 000010 ADD #50,R0 :GO TO NEXT SET OF DATA AND 
1672 003254 000420 BR 6$ :GO SEE IF ANY MORE TO CHECK 
1673 003256 012046 4$: MOV (RO) +,-(SP) *MOVE UNIT NUMBER TO STACK FOR PRINTING 
1674 003260 104405 TYPDS :GO TYPE UNIT NUMBER IN DECIMAL 
1675 003262 104401 035250 TYPE ~ SPACES sTYPE 2 SPACES 
1676 003266 012046 MOV (RO)+,-(SP) ‘MOVE OVERFLOW ores NUMBER TO STACK FOR PRINTING 
1677 003270 001002 BNE 5$ ‘BRANCH IF NON-ZERO 
1678 003272 104401 035250 TYPE ~ SPACES :TYPE AN EXTRA 2 SPACES ~ NUMBER WILL NOT BE EXTENDED 
1679 003276 012046 5$: MOV (RO)+,-(SP) >MOVE PASS NUMBER TO STACK FOR PRINTING 
1080 003300 104406 TYPDE 3GO TYPE PASS NUMBER IN EXTENDED DECIMAL 
1681 003302 104401 035250 TYPE ~SPACES sTYPE 2 SPACES 
1682 003306 012046 MOV (RO)+,-(SP) ‘MOVE ERROR TOTAL TO STACK FOR PRINTING 
1683 003310 104405 TYPDS + TYPE ERROR TOTAL IN DECIMAL 
1684 003312 104401 001405 TYPE  , $CRLF TYPE <CRLF> 
1685 003316 020037 042454 6$: CMP RO, CAPNTR = SEE IF ALL DATA HAS BEEN PRINTED 
1686 003322 001347 BNE 3$ ‘BRANCH BACK IF Ni i. 
1687 003324 005237 001362 INC $TMP1 ‘INCREMENT DEVICE POINTER 
1688 003330 012700 042456 MOV #CAPSTK,RO > INITIALIZE TO SF ctieni ng FOR Fras POSSIBLE PASS 
1689 003334 005301 DEC R1 : DECREMENT THE LOOP COUNTER AND 
1690 003336 001341 BNE 3$ ;BRANCH UNTIL ALL pEvice DATA PRINTED 
1691 003340 012737 0424546 042454 MOV #CAPSTK,CAPNTR ;REINITIALIZE CAPNT 
1692 903346 104401 001405 TYPE , CRLF ;TYPE ANOTHER <CRLF 
1693 003352 105037 030707 7$: CLRB CHARCT *CLEAR ANY CHARACTER ENTERED DURING PRINTING 


1694 003356 000207 RTS PC EXIT 





5 
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SUBROUTINE TO FILL ALL TABLE BOARD ENTRIES SEQ 0058 
1695 .SBTTL SUBROUTINE TO FILL ALL TABLE BOARD ENTRIES 
1696 PRR AE AREER ATER AA TATA AAA A AR AAA AAA ARE KARA AAA ARTE ATATE 
1697 7% 
1698 ;* THIS SUBROUTINE FILLS ALL TABLE BOARD ENTRIES FOR THE ADDRESSES AND 
1699 ;* VECTORS FROM THE VALUES IN 'REGADR’ AND 'VECADR', AND SHOULD BE SET 
1700 ;* UP BEFORE ENTERING THIS SUBROUTINE. 
w 
1702 jeteeeneeeeceenecerccereeereeateerneaannarenatenereneneceneeeseeese 
1703 003360 005037 001466 FIXTBL: CLR SDEVM CLEAR THE DEVICE mass 
1704 003364 000261 SEC ‘SET THE CARRY BIT A 
1705 003366 006137 001466 ROL $DEVM ‘ROTATE 11 INTO SDEVM FOR 1 BOARD 
1706 003372 022737 (00001 002414 CMP #1, QTYBRD :SEE IF ONLY 1 BOARD PRESENT 
1707 003400 001433 BEQ 2$ “KICK OUT [F SO = TABLE DOESN'T NEED FILLING 
1708 003402 013701 002414 MOV QTYBRD,R1 sFILL ALL TABLE BOARD ENTRIES FROM FIRST 
1709 003406 005301 DEC R1 “DECREMENT SINCE 1ST POSITION IS ALREADY FILLED 
1710 003410 005002 CLR Re CLEAR INDEX TO SEND POINTER 
1711 003412 012703 000002 MOV #2,R3 =PUT 2 IN INDEX TO RECEIVE POINTER 
1712 003416 000261 1$: SEC set THE CARRY BIT ue 
1713 003420 006137 001466 ROL $DEVM ROTATE IT INTO $DEV 
1714 002416 RA=REGADR REDEF INE REGADR AS RA FOR SPACE REASONS 
1715 003424 0916263 002416 002416 MOV RA(R2), RACR3) ; TRANSFER ADDRESS TO NEXT POSITION AND 
1716 003432 062763 000010 002416 ADD #10, RA(R3) ‘ADD 10 FOR NEXT POSITION 
1717 002456 VA=VECADR >REDEFINE VECADR AS VA FOR SPACE REASONS 
1718 003440 016263 002456 002456 MOV VA(R2),VAC(R3) |; TRANSFER VECTOR TO NEXT POSITION AND 
1719 003446 062763 000010 002456 ADD #10, VACR3) “ADD 10 FOR NEXT POSITION 
1720 003454 013763 001474 001474 MOV $DDWO,SDDWO(R3) :MOVE DEVICE BESCRIP TON WORD TO NEXT POSITION 
1721 003462 022223 CMP (R2)+,(R3)+ [UPDATE INDEX POINTERS 
1722 003464 005301 DEC R1 ‘DECREMENT THE LOOP COUNTER 
1723 003466 001353 BNE 1$ :BRANCH BACK IF NOT DONE 
1724 003470 000207 2$: RTS PC sEXIT 
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SUBROUTINE TO LOAD INBUF WITH AN INCREMENTING PATTERN $20 0059 
| 9725 .SBTTL SUBROUTINE TO LOAD INBUF WITH AN INCREMENTING PATTERN 

1726 PUR AAeAeKAKeeKAeAKAeee tee eee eeteeKKeKeteAKeKteeHeeeeeeKeeeeeeeenNes 

1727 3* 

1728 ;* THIS SUBROUTINE CLEARS THE FIRST LOCATION OF THE BUFFER AND LOADS 

Te ;* NUMBERS STARTING WITH 1 INTO THE BUFFER. 

‘* 

1731 : Seeeeeeeeeeeeeeeeeeeeeeeeeeeeteenkeeeeeeneneneeeeenetiateererereeee 

1732 003472 013702 002616 LODBUF: MOV INBUF ,R2 :MOVE STARTING ADDRESS OF INBUF TO R2 

1733 003476 013703 002622 MOV BUFLEN,R3 :MOVE LOOP COUNTER R3 

1734 003502 005203 INC R3 ;CORRECT COUNTER 

1735 003504 005001 CLR R1 ‘CLEAR THE LOADING COUNTER 

1736 003506 010122 1$: MOV R1,(R2)+ ‘LOAD NEXT BUFFER WORD 

1737 003510 005201 INC R1 s INCREMENT THE LOADING COUNTER 

1738 003512 005303 DEC R3 DECREMENT THE LOOP COUNTER AND 

1739 003514 001374 BNE 1$ sBRANCH BACK IF NOT DONE 

1740 003516 000207 RTS PC SEXIT 


(es 


SUBROUTINE TO LOAD THE CHKBUF WITH EVEN 


CZDRLCO-DRi1 GEN NPR INTFC 


000207 


002620 
002622 


I 5 
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#'S STARTING WITH 0 


CHKBFF : 


1$: 


2$: 


SEQ 0060 


.SBTTL SUBROUTINE TO LOAD THE CHKBUF WITH EVEN #'S STARTING WITH 0 


PRR RRRRERELLSEELESSES ESE SESE SESE E RRR E REAR ARRAS ERASE ARSE RASA A SDA SO 


THIS SUBROUTINE CLEARS THE FIRST LOCATION OF THE BUFFER AND LOADS 
EVEN NUMBERS STARTING WITH 0 INTO THE BUFFER. 


MOV 


CHKBUF ,R2 
BUFLEN, RI 


R 
R3,(R2)+ 
R3.(R2)+ 
(RS), =-(R1) 


s 
PC 


SERRE AAA REAAAAAAAEAARAAAAAAEAAAAAAAAAEKAAAAAARAAAAAAE 


STARTING ADDRESS OF were TO R2 

MOVE LOOP COUNTER TO R1 

sWIPE OUT R3 

:MOVE R3 TO CHKBUF ADDRESS AND INC BY 2 

:MOVE R3 TO NEXT CHKBUF ADDRESS AND INC BY 2 

;ADD 2 TO NUMBER FOR BUFFER & SUBTRACT 2 FROM LOOP COUNTER 


:SEE IF R1 HAS REACHED ZERO YET 
;BRANCH BACK IF NOT DONE 


;EXIT 


CZDRLCO-DRi1 GEN NPR INTFC 
‘SUBROUTINE TO CLEAR IE, 


042777 


000207 


gH} 


010000 
000004 


176674 


176632 
002560 
00256 

000002 


5 
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CHECK ERROR, READY, WCR=0, AND B 


176746 


002560 
002560 


002720 


Be Be Be Be Be He Be Be He Be we 
aes ee eee 


bs 
4 
a" 
> 


2$: 


SEQ 0061 


.SBTTL SUBROUTINE TO CLEAR IE, CHECK ERROR, READY, WCR=0, AND BAR 


ROAR AAAAAEEAEAAETAETAAEEAAEAAAAAARAERAAKAAAAAAAeeeeeeeeKereeee 


i? SUBROUTINE HAS THE NEED TO CALL _AN ERROR IN THE TEST. 


S TO BE LOCATED IN THE TEST JUST AFTER THE JSR CALL. 


THE ERROR 
FUTURE USE OF 


THIS SUBROUTINE MUST BE HANDLED AS FOLLOWS: 


ERROR +51 


CONTINUE 


ACSR,RCSR 
#MA,RCSR 


1$ 
#B1T2,DDW 
1$ 

R2 

@BAR ,RBAR 
EWCR 
R2,EBAR 
RCSR,ECSR 
aWCR ,RWCR 
2$ 
RCSR,ECSR 
RBAR ,EBAR 
#2, (SP) 
PC 


PC,INTA 


STR OR CALL CALL 
; SUBROUTINE RETURNS HERE IF NO ERROR 


RRA AAARERAE AAT TETRA AAAARERAAARAAAAARERAEAARAREAAKA ES 


;CLEAR IE 

;BUFFER LENGTH TO R2 

;NUMBER OF ro TIMES 2 

;CORRECT BAR 

:MOVE RECEIVED DATA TO RCSR 

SEE IF WE ARE IN MAINTENANCE MODE 
:BRANCH AROUND CABLE TES? IF WE ARE, BIT O WILL BE CLEAR 
SEE IF THERE IS A CABLE 

:BRANCH IF NO CABLE 

;CABLE MODE TESTING i. BIT O OF BAR SET. 


;MAKE SURE ERROR BIT IS CLEAR 

:MAKE SURE READY BIT IS SET 

:MOVE RECEIVED DATA TO RWCR 

;BRANCH TO RETURN WITHOUT UPDATING PC SO ERROR WILL CALL 
;DOES CSR CONTAIN WHAT IT SHOULD 

;BRANCH TO RETURN WITHOUT UPDATING PC SO ERROR WILL CALL 
DOES BAR CONTAIN WHAT IT SHOULD 

:BRANCH TO RETURN WITHOUT UPDATING PC SO ERROR WILL CALL 
ppeeere? PC RETURN TO AFTER THE ERROR CALL 


CHECK ODD ADRS 


kK 5 
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A MAINTENANCE MODE OPERATION 


inh tient GEN NPR INTFC 


SUBROUTINE TO CHECK INBUF AFTER SEQ 0062 


1793 .SBTTL SUBROUTINE TO CHECK INBUF AFTER A MAINTENANCE MODE OPERATION 
1794 ; WE TTTTTTTI TITTLE TT TTI TILT I TIT TT TTT LLL 
1795 ;* 
1796 3 THIS SUBROUTINE HAS THE NEED TO CALL AN ERROR IN THE TEST AND RETURN 
1797 :* TO THE SUBROUTINE. THE ERROR AND RETURN JSR ARE TO BE LOCATED IN THE 
1798 ;# TEST JUST AFTER THE JSR CALL. YOU *MUST® CLEAR LOCATION 'ERRCNT' 
1799 ;* BEFORE EXECUTION OF THIS SUBROUTINE, OTHERWISE YOU MAY NOT Ger ANY 
1800 ;* ERRORS PRINTED, OR IF SO, JUST THE DATA WITHOUT THE HEADER. FUTURE 
1801 ;* USE OF THIS SUBROUTINE Mist BE HANDLED AS FOLLOWS: 
*?* 
1803 :* JSR PC,DATCHK ; SUBROUT INE CALL 
1804 * ERROR +201 RROR CALL 
1805 it JSR PC,DATCH2 “RETURN TO SUBROUTINE AFTER ERROR RTS 
1807 ;* CONTINUE ;SUBROUTINE RETURNS HERE IF NO ERROR(S) OR WHEN DONE 
** 
1808 pogeutescouenoeererissresvenraveneveesetsreceetneenennnyyenrent ens 
1809 003716 011637 001362 DATCHK: MOV (SP), $TMP1 sSAVE PC RETURN 
1810 003722 013702 002620 MOV CHKBUF ,R2 ‘STARTING ADDRESS OF CHECK BUFFER TO R2 
1811 003726 013703 002616 MOV INBUF ,R3 ‘STARTING ADDRESS OF IN BUFFER TO R3 
1812 003732 005037 002624 CLR LENCHK [CLEAR LENGTH CHECK 
1813 003736 005237 002624 DATCH1: INC LENCHK ‘MAKE A COMPARISON 
1814 003742 022223 CMP (R2)+, (R3)+ :1S THE DATA CORRECT? 
1815 003744 00142 BEQ DATCH2 ‘BRANCH IF OK 
1816 003746 013716 001362 MOV $TMP1, (SP) SRESTORE ORIGINAL PC RETURN 
1817 003752 016237 177776 001364 MOV -2(R2),$TMP2  :MOVE CHECK BUFFER CONTENTS TO $TMP2 
1818 003760 010237 001370 MOV R2,$TMP4 [MOVE ADDRESS +2 TO $TMP4 
1819 003764 162737 000002 001370 SUB 2,$TMP4 :CORRECT SO IT POINTS TO ADDRESS CAUSING ERROR 
1820 003772 016337 177776 001366 MOV -2(R3),$TMP3  :MOVE INPUT BUFFER CONTENTS TO $TMP3 
1821 004000 010337 001372 MOV R3,$TMPS ‘MOVE ADDRESS +2 TO $TMPS 
1822 004004 162737 000002 001372 SUB #2.$TMPS *CORRECT SO IT SoInTs. 10 ADDRESS CAUSING ERROR 
1823 004012 000207 RTS PC ‘RETURN TO ERROR CALL - PC ON STACK ALREADY POINTS THERE 
1824 004014 023737 002624 002622 DATCH2: CMP LENCHK,BUFLEN :SEE IF THE BUFFER HAS BEEN CHECKED 
1825 004022 001345 BNE DATCH1 :GO BACK FOR ANOTHER TRY IF NOT 
1826 004024 013716 001362 MOV $TMP1, (SP) *RESTORE PC RETU 
1827 004030 062716 000006 ADD #6, (SP) *CORRECT IT SO RETURN IS AFTER THE ERROR CALL 
1828 004034 000207 RTS PC = RETURN 


moe Oe — -- - . —= - ——= - <_< 
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SUBROUTINE TO RESTORE DR11 INT VECT & SET CPU PRIORITY TO 7. 


1839 004056 


-SBTTL SUBROUTINE TO RESTORE DR11 INT VECT & SET CPU PRIORITY TO 7. 
OTIS Titi titi itttit titi itis iititi titi ililiiiii iii iii ri rir ise) 
ye 
:* THIS ROUTINE IS USED IN VARIOUS TESTS TO CLEAR ANY DATA THAT 
:* MAY BE LEFT IN ANY REGISTERS, AND RESTORE CPU PRIORITY TO 7. 


SeeeeRReeeReRRRKe Pee eee Kee AAA eK Ae TAKA ee AeeAeeeAeAeeereeeeereneeee 
012737 000340 177776 CLENUP: MOV #LEVEL7,PSW ;RESTORE CPU TO PRIORITY LEVEL 7 

010000 176450 MOV #MA,aCSR D0 AN INIT CLEARING WCR, BAR & BDR BY SETTING 
005077 176444 CLR acsR AND CLEARING THE MAINT BIT AND CLEAR THE CSR 
000207 RTS PC sEXIT 


SEQ 0063 





—_-—_—__—__—_——_-----——- 
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SUBROUTINE TO CHECK FOR CABLE MODE AND ALTER EXPECTED DATA 


032737 
06 


000207 


000004 002720 


127000 002572 
127000 002536 


.SBTTL SUBROUTINE TO CHECK FOR CABLE MODE AND ALTER EXPECTED DATA 


WTTTTTTTTITITITITITITITITTITLITIT TLL TLL LLL LLL LL 
-* 


* THIS SUBROUTINE CHECKS THE vee gpeyice DESCRIPTOR WORD) FOR THE CABLE 
* BEING IN OR OUT AND SETS BITS 12, 10, 8 AND 6 IN THE EXPECTED DATA 

* LOCATION IF THE CABLE IS OUT. 
* 


Ree RReReeeRRRE HEHE eee eee eeeeeeeeeeeeeeeeAeeneeeeeeneeeeeeret 
CHKCAB: BIT #B1T2,00W CHECK FOR CABLE STATUS 

BNE 1$ EXIT IF CABLE DOES EXIST 
BIS #127000,ECSR SET BITS 12, 


f & 6 - CABLE DOESN'T EXIST 


SEQ 0064 


BIS #127000,BUT SET BITS 12, 10. 8. 7 & 6 IN BITS UNDER TEST LOCATION TOO 


1$: RTS PC ;RETURN 


am a + ee ee 


CZDRLCO-DRi1 GEN NPR INTFC 
SUBROUTINE TO CHECK CORRECT DATA PATTERN WAS MOVED TO INBUF 


-SBTTL SUBROUTINE TO CHECK CORRECT DATA PATTERN WAS MOVED TO INBUF 


jteeneenenenecenececereterereteecenanasenanenatacarececerecererers 


1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 004106 
1868 004112 
1869 004116 
1870 004122 
1871 004126 
1872 004132 
1873 004134 
1874 004136 
1875 004142 
1876 004146 
1877 004154 
1878 004160 
1879 004166 
1880 004170 
1881 004176 
1882 004200 
1883 004202 
1884 004204 
1885 004210 
1886 004216 
1887 004222 
1888 004230 
1889 004236 
1890 004240 
1891 004242 
1892 004246 
1893 004252 


001362 


002624 


001362 


000002 
002624 


001364 


000006 


001362 
000010 
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We Be Be Be Be Be Be Be Be Be Be Oe Be 
eaeerweetensteeneenesneses 


DATOC1: 


001366 
001370 
002622 


001366 
001370 


1$: 


DATOC2: 


THIS SUBROUTINE HAS THE NEED TO CALL 2 ERRORS. 
LOCATED IN THE TEST JUST AFTER THE JSR CALL. 





SUBROUTINE MUST BE HANDLED AS FOLLOWS: 


CONTINUE 


DATOCK 


PC ,DATOC2 
+4? 


(SP), $TMP1 
#52525,R2 
INBUF ,R3 
LENCHK 
LENCHK 
R2,(R3)+ 


DATOC2 

STMP1, (SP) 
R2,STMP2 

ReiRS). Atal 

R3,STMP4 

oS »STMP4 
LENCHK ,BUFLEN 

DATOC! 

+e (R3)+ 


R2,$ MP2 
RsiRS), STMP3 
R3,STMPG 
#2,STMP4 
$TMP1, (SP) 
#6, (SP) 


PC 
STMP1, (SP) 
#10, (SP) 


Spee add by, CALL 


THE ERRORS ARE TO BE 
FUTURE USE OF THIS 


ERROR CALL 

;RETURN TO SUBROUTINE AFTER ERROR RTS 
32ND ERROR CALL 

SUBROUTINE RETURNS HERE WHEN DONE 


;MOVE ADDRESS #2 TO 


;SAVE PC a Heer 


SRR REEAAAEA ERE AEA EAA AAAAAAAAAAAAAAARAAEAAAAAERAAAAEAAEEE 


DATOCK: 4 


;DATO NUMBER TO R2 
: STARTING ADDRESS oF IN BUFFER TO R3 


1S THE Aye CORRECT? 


BRANCH 


I 
;MOVE OLD PC RETURN TO STACK 
;MOVE EXPECTED DATA TO $TMP2 
;MOVE RECEIVED DATA TO STMP3 


;MOVE ADDRESS +2 TO $TM 


SEQ 0065 


MP4 
[CORRECT ADDRESS SO IT POINTS TO ADDRESS CAJSING ERROR 


;RETURN TO ERROR CALL 


SEE IF THE 1 HAS BEEN CHECKED 


CORRECT Ps gg tl tT "POINTS TO ADDRESS CAUSING ERROR 


;CORR asst PC 


RETU 
;POINT TO 2ND oy yA oe AFTER JSR PC,DATOCK 
;RETURN TO ERROR C 
;RESTORE RETURN ADDR Ess 
:POINT TO PROPER RETURN AFTER THE ERROR CALLS 
;EX 
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SUBROUTINE TO CLEAR IE AND HALT IF ERROR IS SET SEQ 0066 


1894 .SBTTL SUBROUTINE TO CLEAR IE AND HALT IF ERROR IS SET 
1895 PUReRAAH Kee eeKeAAAA AAA eee AA eee eeeeKKKeeeAAKKeeAeeeeeeereTAtAAtetAee 
1896 ;* 
1897 39 THIS SUBROUTINE HAS THE NEED TO CALL AN ERROR IN THE TEST. THE ERROR 
1898 7* IS TO BE LOCATED IN THE TEST JUST AFTER THE JSR CALL. FUTURE USE OF 
1899 ;* THIS SUBROUTINE MUST BE HANDLED AS FOLLOWS: 
1900 7¢ JSR PC ,ERRCHK ;SUBROUTINE CALL 
1901 3* ERROR +24 TERROR CALL 
16 3* CONTINUE sSUBROUTINE RETURNS HERE IF NO ERROR 
*? 
1904 Seetteeeeeeeeeeeteeeeeeeeeeeeereneenaeneeeattertententeeenereeeenet 
1905 004254 042777 000100 176240 ERRCHK: BIC #1E,acsR sCLEAR IE 
1906 004262 017737 176234 002560 MOV acCSR,RCSR sMOVE RECEIVED DATA TO RCSR 
1907 004270 013737 002560 002572 MOV RCSR,ECSR sMOVE EXPECTED DATA TO ECSR 
1908 004276 042737 100000 002572 BIC #ER,ECSR :CLEAR THE ERROR BIT 
1909 004304 052737 000200 002572 BIS #RY,ECSR ;SET THE READY BIT 
1910 004312 013701 002560 MOV RCSR,R1 sMOVE DATA TO R1 FOR CHECKING 
1911 004316 012737 000200 001360 MOV #RY $TMPO sMOVE EXPECTED DATA TO $TMPO 
1912 004324 042701 077577 BIC #77577,R1 :CLEAR ALL BUT THE ERROR AND READY BITS 
1913 004330 022701 000200 CMP #RY, :SEE IF ERROR BIT IS CLEAR AND READY IS SET 
1914 004334 001002 BNE 1$ sBRANCH AROUND PC CORRECTION SO ERROR WILL CALL 
1915 004336 062716 000002 ADD #2, (SP) :CORRECT PC RETURN - DATA OK 
1916 004342 000207 1$: RTS PC EXIT 


ee 


ro Fh 


‘CZDRLCO-DRi1 GEN NPR_INTFC 
SUBROUTINE TO GENERATE DEVICE ADDRESS TABLE 


—_ 
~o 
=D 
~ 


02 002416 


7 DEVADS: 
700 001464 

7 

7 


AUFWNr OOo 


01 000020 
022 18: 
00 000010 


MMrnrrwrvonrnrnnr — 


7 004360 
928 004 

929 004366 
930 004370 
931 004372 
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-SBTTL SUBROUTINE TO GENERATE DEVICE ADDRESS TABLE 


MOSERRSELESESLESLE SESE SESE REARS RSE ARERR RRR A RRR ARERR RASA RAD R DDD SO 


THIS SUBROUTINE GENERATES AN ADDRESS TABLE LOCATED AT REGADR oe 
WITH THE BASE DEVICE ADDRESS (CONTENTS OF $BASE) IN STEPS OF 10. 


MOV 
M 


SEVADS: MOV BREGADRLR2  SPOINT R2 10 THE DEVICE ADDRESS TAB 


#REGADR ,R 


:POINT R2 TO THE DEVICE ADDRESS TABLE 
SBASE no ‘LOAD BASE DEVICE ADDRESS IN RO 
#16., ‘MOVE LOOP COUNTER TO R 
RO the) “MOVE DEVICE ADDRESS TO TABLE 
#16,R0 ‘POINT RO TO NEXT DEVICE ADDRESS 
R1 ‘DECREMENT THE LOOP COUNTER AND 
1$ “BRANCH IF NOT ALL DONE YET 


PC sEXIT 


SEQ 0067 


—-—— 


CZDRLCO-DR11 GEN NPR_INTFC 
SUBROUTINE TO RESET THE '’.+2°' AND ‘'BPT’’ LOCATIONS 





95 
1954 004436 
1955 004444 


000207 


000004 
000174 


004436 
000003 


000003 


000014 000050 BPTINT: 


000254 001000 
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-SBTTL SUBROUTINE TO RESET THE ‘'.+2'' AND ‘BPT'’ LOCATIONS 


jtenennetnentencencertercecceccerseccenentntententenceacencesentes 


THIS SUBROUTINE LOADS '’.+2'' AND ‘'BPT'’ INTO ALL UNUSED LOCATIONS 
BETWEEN 4-776. 


BPINIT: MOV 


1$: 


2$: 


. WORD 
« WORD 


#BPTINT,RO 


R2,R3_ 


4,14,50 
174,254,1000 


SRERREREAAAAAAREREAAERARAEAAAAEAAAEAAAAARAAAAAAAAAAAAAAEAAAAAAATAAAEE 


:POINT RO TO TABLE OF BPT tM LOCATIONS 
:D0 3 SETS OF ‘'.+2°' AND ‘'BPT'’ SETUPS 

:MOVE START ADDRESS TO R2 

:MOVE END ADDRESS TO R3 

;MOVE ADDRESS TO R4 

7 INCREMENT R4 TO PRODUCE THE *' i NUMBER 
:MOVE THE NUMBER TO THE LOCATI 

;MOVE ‘BPT'' TO THE NEXT LOCATION 

;ADD 4 TO R4 

;SEE IF WE HAVE DONE ALL FOR THIS LOCATION 
BRANCH ge FOR ANOTHER TRANSFER IF NOT 
;DECREMENT R1 

BRANCH BACK IF 3 GROUPS NOT DONE 


;ADDRESSES USED TO PUT ‘'.+2'' & ‘'BPT’’ BACK 


SEQ 0068 


| 3 6 
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| SUBROUTINE TO EXTRACT INFORMATION ABOUT THE DR11 SEQ 0069 
| 1956 -SBTTL SUBROUTINE TO EXTRACT INFORMATION ABOUT THE DR11 
1957 UTI T Tie t iii ete teeta titi i iii iii iiititiititiiiititiiiit iii 
1958 3* 
| 1959 ;* THIS SUBROUTINE EXTRACTS INFORMATION ABOUT THE DR11 THAT INTERRUPTED 
1960 ;* AND LOADS THE DATA FOUND INTO THE DEVICE DESCRIPTOR WORD FOR THAT 
1961 ie BOARD. 
** 
1963 PUTTISITITIITITITITTI TT TTT ITT TTT T ITT Titi iit iii iii i iii it iii iit 
1964 004452 012710 610000 DRGET: MOV #MA, (RO) ;SET THE MAINTENANCE BIT AND 
1965 004456 005010 CLR (ROS CLEAR THE CSR TO DO AN INIT 
1966 004460 016612 000002 MOV 2(SP),(R2) MOVE VECTOR+4 FOR THIS MODULE TO VECTOR LOCATION 
1967 004464 012616 MOV (SP)+, (SP) sMOVE RETURN OF THIS SUBROUTINE TO ITS PROPER POSITION 
004466 162712 000004 SUB #4,(R2) ‘DUMB VECTOR IS WRONG - CORRECT IT 
1969 004472 013711 002540 MOV LEVEL, (R1) sPUT THE PRIORITY LEVEL INTO THE $ODWXX LOCATION 
0 00447 05237 001466 INC SDEVM s INDICATE DEVICE EXISTENCE IN DEVICE MAP 
1971 004502 005237 002414 INC QTYBRD i INCREMENT DEVICE COUNT 
1972 004506 052710 100000 BIS #EIR, (RO) :G0 TO EIR TO *h B/W STATE 
1973 004512 011037 002562 MOV (RO) ,REIR sMOVE EIR TO REIR 
1974 004516 005010 CLR (RO) :G0 BACK TO CSR 
1975 004520 012710 010000 MOV #MA, (RO) ;SET THE MAINT BIT 
1976 004524 005010 CLR (RO) D0 AN INIT 
1977 004526 032737 000001 002562 BIT #BITO,REIR ; TEST FOR “ STATE 
1978 004534 001003 BNE 1$ BRAN CH IF 
1979 004536 052711 000001 BIS #BITO,(R1) ;SET STATE Tee ae DESCRIPTOR WORD 
1980 004542 000406 BR 2$ 60 TO CABLE STATUS TEST 
1981 004544 032737 000400 002562 1$: BIT #N2,REIR sCHECK 2/N CYCLE STATE 
1982 004552 001402 BeQ 2$ ;BRANCH IF 2 CYCLE 
1983 004554 052711 000002 BIS Teast (R1) N CYCLE - SET BIT IN DEVICE DESC 
1984 004560 011037 002560 2$: MOV (RO),RCSR “MOVE RECEIVED DATA TO RCSR TO GET CABLE STATUS 
1985 0045 032737 127000 002560 BIT #127600" RCSR sCHECK IF ANY BITS ARE SET - THEY ARE IF NO CABLE 
1986 004572 001015 BNE 3$ ‘BRANCH IF NO CABLE 
1987 004574 112710 000004 MOVB #F2, (RO) ;CABLE IS POSSIBLY IN - SET FNCT2 
1988 004600 011037 002560 MOV (RO),RCSR ‘MOVE RECEIVED DATA TO RCSR 
1989 004604 052710 010000 BIS #MA, (RO) :SET THE MAINTENANCE BIT 
1990 004610 005010 CLR (RO) ;CLEAR THE CSR TO DO AN INIT 
1991 004612 032737 020000 002560 BIT #AT,RCSR :TEST TH. ATTN BIT 
1992 004620 001402 BEQ 3$ ;BRANCH if NOT SET - NO CABLE 
im 004622 052711 000004 BIS #B1T2,(R1) 3SE’ .ABLE BIT IN DEVICE DESC 


004626 000207 3$: RTS PC sEXiT 


CZDRLCO-DRi1 GEN NPR_INTFC 


2000 

2001 004630 
2002 34 
2003 004640 
2004 644 


005037 


002662 


002456 


035433 
002414 


035472 
200020 
000001 
002662 


035257 


035257 


000001 
035303 
035305 


000002 
035320 
035316 
035266 
000004 
035312 
035307 


001405 
002662 


000002 


001405 


F 6 
MACRO M1113 27-OCT-80 15:53 PAGE 70 
‘SUBROUTINE TO PRINT THE AUTOSIZED BOARD CONFIGURATIONS 


002720 
002720 


002720 


002720 


* 
* 


Bete Be Oe we 
a 


TYPCNF : 


-SBTTL SUBROUTINE TO PRINT THE AUTOSIZED BOARD CONFIGURATIONS 


SRE REAREEREAEEEAAEARAAAARERERAARAAAAAAETAAAAAAAARAAAHETARAARAAAAAAE 


THIS SUBROUTINE PRINTS THE BOARD CONFIGURATIONS FOUND BY ASIZE 


CLR 


LOOP 
SDEVM,RS 
#REGADR,R1 
#VECADR.R2 
R3 

, NOBUT 
QTYBRD,-(SP) 
/BRVWPC 
#16.,R0 
#B1T0,R5 
LOOP, -(SP) 
/SPACE6 
(R1),-(SP) 
SPACES 
(R2) ,-(SP) 


SPACE7 
$DDWO(R3) ,DDW 
#BITO,DDW 
28 
ss 

SPACE? 
PC ,PNTPRI 
SPACE? 
#B1T1,D0W 
5$ 
TWO 
*SPACE7 
#B1T2,D0W 
68 
Yes 


7$ 
“NG 

, o9CRLF 

LOOP 
a 
#2,R3 

RO 


1$ 
. SCRLF 
PC 


PRR RRESESEGLELESLASEASE SEE SEER SESE RRR RAR AR ARR RRA R LARA RR AAR AAAS DSS SO | 


;CLEAR THE — NUMBER COUNTER 


GET DEVICE M 


SEQ 0070 


:MOVE THE ADDRESS OF THE REGISTER ADDRESS TABLE AA 


sMOVE THE ADDRESS OF THE VECTOR ADDRESS TABLE T 
oe THE DEVICE DESCRIPTOR ADDRESS POINTER 


"NO. BOARDS UNDER TEST: 


PE: 
:MOVE THE QUANTITY TO THE STACK FOR TYPEOUT 


;TYPE THE NUMBER 
:TYPE THE HEADER 


:SET UP LOOP aril FOR 16 BOARDS 


; DEVICE ty ta TEST? 


BRANCH IF 
;PUT BOARD # ON STACK FOR TYPEOUT 
;PRINT BOARD # (0 TO 16) 
;TYPE 6 SPACE CHARACTERS 
;SAVE REGISTER ADDRESS FOR TYPEOUT 
;PRINT DEVICE REGISTER ADDRESS 
;TYPE 6 SPACE CHARACTERS 

;SAVE VECTOR ADDRESS FOR TYPEOUT 


;PRINT VECTOR ADDRESS 


;PRINT_3 DIGITS, Rtg t re ZEROS SUPPRESSED 


sTYPE 7 SPACE CHAR 


ACTERS 
[MOVE DEVICE DESCRIPTOR WORD TO DDW 


sTEST WHICH STATE, 
;G0 PRINT w STATE IF W 


ST VPE 
60 BG. aT CHECK 


OR WwW, 


‘TYPE 7 SPACE CHARACTERS 


:PRINT DEVICE PRIORITY 


PE 7 SPACE CHARACTERS 


sTEST 2/N CYCLE STATE 
:60 yy fe STATE IF 2 


;TYP 
:TYPE A 


EA 
G0 TO Next CHECK 


:TYPE 7 SPACE aad 


;TEST CABLE STA 


TE 
io eres *NO' IF NO CABLE 
:G0 TO LOOP CHECK 
YPE ‘NO’ 


‘TYPE A <CRLF> 


S INCREMENT BOARD COUNT FOR POSSIBLE NEXT PASS 

; INCREMENT COUNTERS 

:SHIFT R5 TO THE RIGHT TO MOVE BOARD BIT INTO BIT 0 
;ADD 2 TO THE DEVICE eter’ ioe WORD POINTER 
;DECREMENT THE LOOP COUNTER 

;BRANCH BACK FOR CHECK IF 16 ABOARDS NOT DONE 

;TYPE ANOTHER <CRLF> 


EXIT 


FOR THIS BOARD 
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\esemmenitin TO CHECK FOR LOCATION BELONGING TO A DR11 SEQ 0071 
2052 .SBTTL SUBROUTINE TO CHECK FOR LOCATION BELONGING TO A DR11 
$327 [eeteeeeeeeeeeneeeteerteeeereertectenenereeeeeetereertertererereeet 
20 
44 ;* THIS SUBROUTINE CHECKS FOR THE LOCATION BELONGING TO A DR11. 

-* 

2057 Lcoeeeunsvouswevescusestyrecooenecevetareoreueesenareses Wwenreveres 
2058 005104 012737 000340 002540 (CHK4DR: MOV #LEVEL7,LEVEL ;MOVE PRIORITY 7 TO LEVEL 

2059 005112 012703 005264 MOV #LEVELS.R3 ;MOVE ADDRESS OF PRIORITY LEVELS TO R3 
2060 005116 012704 000004 MOV #4 RG [D0 4 PRIORITY CHECKS 

061 005122 012737 000400 002660 1%: MOV #400, TIME :SET UP WAIT LOOP COUNTER 

2062 005130 012710 010000 MOV #MA, (RO) :SET THE MAINTENANCE BIT AND 

2063 005134 905010 CLR (ROS ‘CLEAR TO POSSIBLY DO AN INIT 


2064 005 000014 001362 MOV BPTVCT,STMP1 :SAVE BPT TRAP VECTOR 
2065 005144 012737 005222 000014 MOV #3$,BPTVCT S INTERRUPTS TO 3$ 
2066 005152 012337 177776 MOV (R3)+,PSW +34 CPU orice tt TO NEXT LEVEL 
2067 005156 000240 NOP KILL A LITTLE TIME 
2068 005160 012710 000105 MOV #IE+F2+G0,(RO) ;SET IE, FNCT2 AND GO ATTEMPTING ANOTHER INTERRUPT 
2069 005164 005337 002660 2$: DEC TIME :DECREMENT TIME 
2070 005170 001375 BNE 2$ ;BRANCH BACK UNTIL ZERO 
2071 005172 012737 000340 177776 MOV #LEVEL7,PSW ;SET CPU PRIORITY BACK TO 7 
2072 005200 013737 001362 000014 MOV STMP1 ,BPTVCT :RESTORE BPT TRAP VECTOR 
2073 005206 162737 000040 002540 SUB #40,LEVEL [PUT LOCATION 'LEVEL' AT NEXT PRIORITY - INTERRUPT FAILED 
2074 005214 005304 DEC R4 ;DECREMENT LOOP COUNTER 
2075 005216 001341 BNE 1$ ;BRANCH BACK IF NOT ALL PRIORITY LEVELS CHECKED YET 
2076 005220 000416 BR 4$ sEXIT = THIS LOCATION DOESN'T BELONG TO A DR11 
2077 005222 012737 000340 177776 3%: MOV #LEVEL7,PSW ;AHAH = THIS *1S* A DR11 - SET CPU PRIORITY BACK TO 7 
2078 005230 013737 001362 000014 MOV $TMP1,BPTVCT ;RESTORE BPT TRAP VECTOR 
2079 005236 016666 000010 000006 MOV 10(SP) ,6(SP) :MOVE THIS SUBROUT! NE'S RETURN UP ONE rye ON STACK 
2080 005244 011666 000010 MOV (SP) ,10(SP) ;MOVE TRAP ADDRESS TO RETURN'S OLD LOCATION 
2081 005250 062706 000006 ADD #6 ,SP ;KICK GARBAGE' OFF — - GOT TO KEEP IT CLEAN 
2082 005254 000402 BR 5$ :BRANCH TO KICK OUT 
2083 005256 062716 000012 4$: ADD #12, (SP) ; CORRECT Bhi ee TO NOT DO DR11 SETUP 
2084 005262 000207 5$: RTS PC KICK OUT 
2085 
| 


2086 005264 000300 000240 LEVELS: .WORD LEVEL6,LEVELS ;PRIORITY LEVELS TO LOAD INTO THE PSW 
2087 005270 000200 000140 -WORD LEVEL4,LEVEL3 


CZDRLCO-DR11 GEN NPR INTFC 
SUBROUTINE TOG AUTO SIZE DR11 BOARD CONFIGURATION 


2096 005274 
2097 005300 
2098 005304 
2099 005306 
2100 005310 


Soooooooooooo 
Net gel yet he yt et 
~“ 
~m 


ssssssess 


Ss 
ww 
“~s 
Ww 
™~m 


34 
005440 


MNMMNNINNIN 2 2 A OO OS SS OOO OOCOCOCOCO 
NOUS WN $0 OONOUE WN OO OONOUE wh — 


ROPIPIPIMPOPO NONI NMINIPYRS POPP PO PYNMI POP No PoPofrorfryunyfrofronofry 
ee ee ee et ek ek ek ed ad od od od 


012700 


000207 


001474 
000020 


004374 


000020 


005104 
004452 


000004 
000010 


001466 
002674 
002672 
010000 
002414 


004630 
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002672 


000006 


000006 
000004 
173654 


-SBTTL SUBROUTINE TO AUTO SIZE DR11 BOARD CONFIGURATION 


SRR RAAAE REAR ETE AAAAAAEAEA AAR RKHAARAARKAAKAKHRKKeKKKeeKK eee eee 
*@ 
te THIS SUBROUTINE AUTOSIZES THE BOARD CONFIGURATION AND CALLS FOR THE 
ie PRINTING OF THE CONFIGURATION IF BIT 12 OF THE SWITCH REGISTER IS 
;* . 
** 
Leeeeeeeeeeeeeeeeeeeeeeeeeteeeteneteeeneeenenetenteneneeeeeeeeeter 
ASIZE: MOV #$DDW0,RO :MOVE ADDRESS OF FIRST DEVICE DESCRIPTOR WORD TO RO 
MOV 16.,R1 =CLEAR 16 WORDS OUT OF THE DICTIONARY 
1$: CLR (RO)+ ‘CLEAR THE WORD - SORRY CAN'T LOOK IT UP ANY MORE 
DEC R1 “DECREMENT THE LOOP COUNTER AND 
BNE 1$ :BRANCH BACK IF NOT DONE Y 
JSR PC ,BPINIT 'GO RESET THE '’.42°' AND Ber" LOCATIONS 
JSR PC. DEVADS ‘GENERATE DEVICE ADDRESS TABLE 
CLR QT YBRD [CLEAR DEVICE COUNT 
CLR $DEVM :CLEAR DEVICE MAP 
HOV TOVECT,OLDPC1 :SAVE TIMEOUT VECTOR 
MOV #3$, TOVECT ‘SET TIMEOUT POINTER TO 3$ 
MOV TMOPSW,OLDPS1 :SAVE TIMEOUT PS 
MOV #LEVEL?, TMOPSW :CPU PRIORITY TO 7 
MOV #172604 .RO :POINT RO TO UNIT #16 CSR ADDRESS LOCATION 
MOV #$D0W15.R1 [LOAD DEVICE DESC ADDRESS 
MOV #VECADR+36,R2  :POINT R2 TO UNIT #16 VECTOR ADDRESS LOCATION 
MOV #16.,R5 OO. 16 BOARDS 
2$: CLR (RO) [CHECK FOR REGISTER EXISTENCE 
JSR PC, CHK4DR [GO CHECK FOR A DR11 AT THIS, LOCATION IF IT DOES 
JSR PC .DRGET [GO EXTRACT INFO FROM THE DR1 
BR 4$ ‘BRANCH OVER THE STACK CORRECTION 
3$: ADD #4,SP “CORRECT STACK AFTER TIMEOUT 
i$: SUB #10,R0 ‘POINT RO TO NEXT DEVICE ADDRESS 
CMP =(R1),-(R2) ‘POINT R1 AND R2 TO NEXT DEVICE & VECTOR LOCATIONS 
DEC RS [DECREMENT LOOP COUNTER 
BEQ 5$ [EXIT IF ALL DONE WITH 16 BOARDS 
ASL $DEVM SADJUST DEVICE MAP FOR NEXT UNIT CHECK 
BR $ :GO CHECK NEXT LOCATION 
5$: MOV OLDPS1,TMOPSW  :RESTORE TIMEOUT PS 
MOV OLDPC1.TOVECT :RESTORE TIMEOUT VECTOR 
BIT #B1T12.aSWR SCHECK FOR CONFIGURATION PRINT 
BNE 6$ ‘BRANCH IF PRINT NOT REQUESTED 
TST QTYBRD ‘SEE IF ANY BOARDS WERE FOUND 
BEQ 6$ “BRANCH TO RETURN IF NOT - NO BOARD INFO TO PRINT 
pa JSR PC, TYPCNF :G0, TYPE THE BOARD CONFIGURATIONS 


SEQ 0072 


CIDRLCO-DRi1 GEN NPR INTFC 
‘SUBROUTINE TO GENERATE VECTOR ADDRESS TABLE 


8 005502 012702 


6 008830 000207 


| 
| 
| 


002456 


000020 
000010 


® 
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SEQ 0073 


-SBTTL SUBROUTINE TO GENERATE VECTOR ADDRESS TABLE 


RARER AARETEEAAEAAREAAATAAAAAAAAAAARERAARAKARARAAAERAAATE AAAS 


THIS SUBROUTINE GENERATES THE VECTOR ADDRESS TABLE. 


VCTADS: MOV 


1$: 


#VECADR ,R2 


CRRA ATER AAAEAAAAAAAAAARAARAAEAAAAAAAEAAEEAA AEA 


;GET LOCATION OF VECTOR TABLE 


:COPY BASE VECTOR 


;CLEAR UPPER BYTE 


;D0 16 VECTORS 

;PUT VECTOR ADDRESS IN TABLE 
POINT RO TO NEXT VECTOR ADDRESS 
;DECREMENT LOOP COUNTER 

;BRANCH IF NOT ALL DONE YET 


. 
. 


EXIT 
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CZDRLCO-DR 
ROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS SEQ 0074 
| 2147 .SBTTL ROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS 
2148 FRRRAAE AAA AARAAAAAATA RAAT TAAAAAAAAAAARAAAKARAAAHAKARERAAAAA AAA E 
2149 s* 
$120 ;* THIS IS THE ROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS 
*® 
2152 Seeeeteeeeeeeeeeeeeeeeeeeeeeeeeneeeteneeteeenereeneenetereeereeetes 
2153 005536 012737 000340 177776 CATCH: MOV #LEVEL7,PSwW ;REESTABLISH CPU PRIORITY AT 7 
2154 005544 012637 002542 MOV (SP)+,BDVECT ‘GET ADDRESS OF TRAP VECTOR + 4 
2155 005550 012637 002674 MOV (SP)+,OLDPS1 sSAVE PS 
2156 005554 012637 002676 MOV (SP)+,OLDPC2 *SAVE PC OF ADDRESS OF INSTRUCTION CAUSING TRAP 
2157 005560 012637 002700 MOV (SP)+,OLDPS2 :SAVE 2ND PS 
2158 005564 162737 000004 002542 SUB #4 ,,BDVECT ‘ADJUST TO POINT TO TRAP ADDRESS 
2159 005572 104050 ERROR +50 ; UNEXPECTED TRAP OR INTERRUPT TO TRAP ADDRESS BELOW 
2160 005574 013746 002700 MOV OLDPS2,-(SP) sRESTORE PS RETURN ON STACK 
2161 005600 013746 002676 MOV OLDPC2,-(SP) *RESTORE PC RETURN ON STACK 
2162 005604 000002 RTI ; RETURN 


_ 


[ 
© 
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SUBROUTINE TO PRINT STATE OF A DDW BIT SEQ 0075 
2163 .SBTTL SUBROUTINE TO PRINT STATE OF A DDW BIT 
2164 PRR AAReKeeeeeeeeeeeeeeeeeeeerreeeKeKteeeetAKeeeKteKeteeererereene 
216 :* 
2166 :* THIS SUBROUTINE PRINTS THE STATE OF THE BIT IN THE DDW THAT WAS 
2167 : PRELOADED INTO BITTST. 
-* 
2169 peswesvervsoqaneersretoveenerenrercsevesseatertavestierirrrrs vert 
2170 005606 005046 PSTATE: CLR (SP) ;SHOW STATE AS ZERO INITIALL 
2171 005610 033737 002710 002720 BIT  BITTST. Dw CHECK STATE OF BIT IN DDW USING BIT SET IN BITTST 
2172 005616 001401 BEQSs1S ;BRANCH IF NOT SET 
2173 005620 005216 INC (SP) :SHOW A '1' STATE FOR THAT BIT 
2174 005622 104403 1$: ‘TYPOS TYPE THE STATE, LEADING ZEROS SUPPRESSED 
2175 005626 001 000 BYTE 1,0 :TYPE 1 CHARACTER, SUPPRESS LEADING ZEROS 
2176 005626 000207 RTs PC SEXIT 
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SUBROUTINE TO PRINT DEVICE PRIORITY SEQ 0076 
2177 .SBTTL SUBROUTINE TO PRINT DEVICE PRIORITY 
2178 FRRAAAAHAAAAAAEHKAAAAAAA AAA AAAATAAAKeKeeKeAKAKKAKAKAKeAA Ae ATAKTeTee 
2179 : 
siey s* THIS SUBROUTINE PRINTS THE DEVICE PRIORITY 
** 
2182 [eeteeeeeeeeeeeeeeeeeeeeeneteneeeeneenenteneteneneteeenereeteneeere 
2183 005630 013746 002720 PNTPRI: MOV DDW,-(SP) PUT DEVICE DESCRIPTOR WORD ON STACK 
2184 005634 006216 ASR (SP) sSHIFT RIGHT STACK LOCATION 5 PLACES 
2185 005636 006216 ASR (SP) 
2186 005640 006216 ASR (SP) 
2187 005642 006216 ASR (SP) 
2188 005644 006216 ASR (SP) 
2189 005646 042716 177770 BIC #177770, (SP) sMASK TO GET PRIORITY 
2190 005652 104403 TYPOS ;TYPE THE DEVICE PRIORITY 
2191 005654 001 000 -BYTE 1,0 :TYPE 1 CHARACTER, SUPPRESS LEADING ZEROS 
2192 005656 000207 RTS PC sEXIT 


i a nn a ee ee 





mM 6 
CZDRLCO-DRi1 GEN NPR INTFC MACRO M1113 27-OCT-80 15:53 PAGE 77 


INITIALIZE THE COMMON TAGS SUBROUTINE SEQ 0077 
2193 -SBTTL INITIALIZE THE COMMON TAGS SUBROUTINE 
$13e [eeeeeeeeeeeeeeeeeeeeeetetreneereeeerenteetereeeereetenteteenenee 
1 3* 
2196 3* Hoody seer Hae aahamaey by 5 ahve | VECTORS. USE IS AS FOLLOWS: 
2197 ;* #STACK ; INITIALIZE THE STACK 
si36 7* nS PC, SET tOP CALL THE SUBROUT INE 
;* 
2200 1 ile > Anandtech Oe a tN ore St acter nteneaatla 
2201 005660 011637 001360 SETTUP: MOV (SP) ,STMPO ;SAVE RETURN ADDRESS 
2202 3;CLEAR THE COMMON TAGS ($CMTAG) AREA 
005664 012706 001300 MOV #SCMTAG,R6 eee d aR LOCATION TO BE CLEARED 
005670 005026 100$: CLR (R6)+ ;CLEAR MEMORY LOCATION 
005672 022706 001340 CMP #SWR RE ::DONE? | 
005676 901374 — 100$ LOOP BACK IF NO 
57 012706 001300 #STACK,SP + SETUP THE STACK POINTER 
s INITIALIZE A FEW VECT TORS 
57 012737 027636 000020 MOV #SSCOPE, a#1OTVEC; ; 107 VECTOR FOR SCOPE ROUTINE 
005712 012737 000340 000022 MOV #340,a8 #LOTVEC+2 ; LEVEL 7 
005720 012737 031050 000030 MOV #SERROR, @vENTVEC; EMT VECTOR FOR ERROR ROUTINE 
005726 012737 000340 000032 MOV #340,a asEMTVEC+ 2 ;;LEVEL 7 
0057 012737 027550 000034 MOV #STRAP, Se TRAPVEC STRAP VECTOR FOR TRAP CALLS 
005742 012737 000340 000036. -- MOV #340, a#TRAPVEC+2; LEVEL 
005750 012737 031774 000024 MOV #SPURDN, SAPURVEC : POMER FAILURE VECTOR 
005756 012737 000340 000026 MOV #340 , aAPURVEC +2 eel VEL 
005764 013737 024566 024560 MOV SENDCT,SEOPCT Asai END-OF -PROGRAM COUNTER 
005772 005037 001376 CLR SESCA PE SI CLEAR THE ESCAPE ON ERROR ADDRESS 
005776 112737 000001 001315 MOVB #1, SERMAX 7;ALLOW ONE ERROR PER TEST 
006004 012737 011246 001306 MOV #T$T1+2, $SLPADR 23 UME TEAL ASE THE LOOP ADDRESS FOR SCOPE 
01 012737 011246 001310 MOV #TST1+2,$LPERR ;SETUP THE wrt LOOP ADDRESS 
z:SIZE FOR A HARDWARE SWITCH REGISTER IF NOT FOUND OR IT IS 
;;EQUAL TO A ‘'=1"', SETUP FOR A SOFTWARE SWITCH REGISTER. 
006020 013746 000004 MOV a#ERRVEC, -(SP) sseaye ERROR VECTOR 
006024 012737 006060 000004 MOV sped agERRVEC ::;SET UP ERROR VECTOR 
006032 012737 177570 001340 MOV #OSWR,SWR +: SETUP FOR A HARDWARE SWICH REGISTER 
006040 012737 177570 001342 MOV #DDISP, DISPLAY AND A HARDWARE DISPLAY + foe hh 
006046 022777 177777 173264 CMP #-1 ,aSuR ee TRY TO REFERENCE HARDWARE SWR 
006054 001011 BNE 66$ :BRANCH IF NO TIMEOUT TRAP OCCURRED 
> SAND THE Bie! SWR IS NOT = -1 
006056 000402 BR 65$ ; BRANCH IF NO TIMEOUT 
006060 062706 000004 64$: ADD #4,SP :CLEAN UP STACK AFTER INTERRUPT 
006064 012737 000176 001340 65$: MOV #SWREG,SWR > :POINT TO SOFTWARE SWR 
006072 012737 000174 001342 MOV #DISPREG DISPLAY 
006100 012637 000004 66$: MOV (SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 
006104 005037 001416 CLR SPASS 7:CLEAR PASS COUNT 
006110 132737 000200 001431 BITB #APTSIZE ,SENVM ssTESt USER SIZE UNDER APT 
006116 001403 BEQ 67$ YES,USE NON-APT SWITCH 
oeise 012737 001432 001340 678 MOV #SSWREG, SWR INO, USE APT SWITCH REGISTER 
2203 006126 013746 001360 MOV STMPO,-(SP) ;PUT RETURN ADDRESS ON STACK AND 
2204 006132 000207 RTS PC RETURN TO THE CALLING ROUTINE 








2205 

2206 

2207 

2208 

2209 

2210 

2211 

ssi¢ 006134 
2213 006140 
2214 006142 
2215 006150 
2216 006152 
2217 006154 
2218 006156 
2219 006164 
2220 006166 
2221 006174 
2222 006176 
2223 006204 
2224 006206 
2225 006210 
2226 006216 
2227 006220 
2228 006226 
2229 006230 
2230 006232 


005737 


000207 


CZDRLCO-DRi1 GEN NPR INTFC 
MEMORY MANAGEMENT AND LOCATION 


002712 
000401 


000060 
000040 
000001 


000020 
000002 


000004 
000002 
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CHECK SUBROUTI 


TSTMM: 


006152 

1$: 
002572 
002572 
002713 


002572 2%: 
002713 


002713 3$: 


SEQ 0078 


-SBTTL MEMORY MANAGEMENT AND LOCATION CHECK SUBROUTINE 


PTTTITITITITITILT TTL TLL TELL LLL LLL 


THIS SUBROUTINE CHECKS FOR MEMORY MANAGEMENT EXISTENCE AND WHETHER OR 
NOT A LOCATION IN UPPER MEMORY EXISTS. 


t oeeeeencecoeccecocencesesnsenssenesosesevesenoesossososecesoreress 


MEMGMT 

4$ 
#CY+G0,1$ 
R2,(PC)+ 
CY+G0 

4$ 
#X6+X7,ECSR 
4% 

#X7,ECSR 


#8110, MEMGMT+1 
5$ 


4$ 

#X6,ECSR 
#B1T1,MEMGMT+1 
5$ 


4$ 
#B1T2,MEMGMT+1 
#2, (SP) 

PC 


;TEST TO . i MEMORY MANAGEMENT EXISTS 

;BRANCH IF 

;SET_UP ait” TES ST D 

sTEST TO SEE IF BOTH THE CYCLE AND GO BITS ARE SET 
;LOCATION TO STORE THE CYCLE a GO Oe 


KICK B IF CYCLE AND/OR GO ARE CLEAR 
TSE I F XBA16 OR XBA17 WERE SET IN EXPECTED DATA 
sBRANCH OUT NO 
;SEE IF XBA17_IS SET 
3GO CHECK STATUS OF XBA16 IF SET 
:SEE IF 200000+NOCARE WAS FOUND TO EXIST = IF NOT 


3GO0 SET EXPECTED ERROR AND NEX BITS AND CHECK FOR “ERROR 
oor te OUT IF LOCATION EXISTS 


yh IS SET 
3B O CHECK £00000+NOCARE IF SET 
;SEE IF 400000+NOCARE WAS FOUND TO EXIST - IF 
3GO SET EXPECTED ERROR AND NEX BITS AND CHECK FOR “ERROR 
:BRANCH OUT IF LOCATION EXISTS 
:SEE IF 600000+NOCARE WAS FOUND TO EXIST - IF N 
O SET EXPECTED ERROR AND NEX BITS AND CHECK FOR “ERROR 
; CORRECT PC RETURN 





000002 


0 
000010 


7 
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‘6 
;* 
3% 
;* 
. 
: 


-* 


-SBTTL BIT PATTERN 


WITTTTITITITITITITIITTITT ELIT LL LLL LLL 


THIS IS A BIT PATTERN TABLE THAT CAN BE USED TO CHECK ANY LOCATION FOR 
ALL COMBINATIONS OF STUCK AND/OR SHORTED BITS. 


RADIX 


PATRNS: .WORD 


SEQ 0079 


SRERRAEARAAAAAEAAEEAAAAAEAEE AEH EHAAAAARARAAAAAAAARERARAARARAEARARAEEE 


;THIS tay YOU TO SEE THE PATTERNS IN BINARY 
ZALL SET BITS 

sALL CLEAR BITS 

sEVEN BITS SET, ODD BITS CLEAR 

2000 BITS SET, EVEN BITS CLEAR 


PAIRS OF BITS SET 


;GROUPS OF 4 BITS SET 
[UPPER BYTE CLEAR, LOWER BYTE SET 
THIS RETURNS MODE BACK TO OCTAL 


a | 


SEQ 0080 


7 
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EXPECTED DATA TABLE FOR CSR CHECK TEST 30 


CZDRLCO-DRi1 GEN NPR_INTFC 


e 
6 
e 
° 
e 
e 
e 
© 
e 
. 
o 
. 
. 
© 
. 
e 
° 
o 
o 
o 
. 
ca 
. 
a 
. 
o 
. 
a 
e 
. 
e 
. 
e 
* 
° 
° 
wv 
e 
e 
e 
e 
a 
e 
e 
. 


o-— TNO ORK UMTN Or 
RUAN UIMM MMMM OO0O0D0000OF LEER 
wowowowowowowowoy 


THE ‘EXPAT’ TABLE IS USED TO CHECK THE CONTENTS OF THE CSR AFTER SETTING 


THE BITS IN THE CSR. 

PUTT TITIT ITIL LTT iii i titi iiiiiiiiiiiti itis 
3 
0 
1 
2 
3 
4 
5 
6 
7 
0 
1 
2 
3 
4 
5 
6 
7 
0 
4 
5 
6 
7 
0 
1 
2 
3 
4 
5 
6 
7 


-SBTTL EXPECTED DATA TABLE FOR CSR CHECK TEST 30 
AHHAAAAAAAEAH RAAT ATTA TATA TATA THAT AeA TA AA AAAA AA eA AK AeeAeeTeTAAeeTTe 


CUCU CU CUCU CUCU CUCU CUCU CCU CUCU CUCU CUCU CU CUCU CUCU CC CuCuCun 

OM VUMTNOR CORK UM TNOR. OF CUM TNOR. OF UM TNO 

ECU CUI CUCUCU CUM POPPI MIMI PIN DO OOOO OO ORL LEAR 

EDEN EWN ENE NEN N ENE NEN ENE MNSE ME Ne Nes 

COSCO CCOCCOCOCOOCOOOOOCOSCSoOOOOoOOoOoOOoOOoOoOooSo 
SOOCCOCCCOCOCOCOCOSCOCOOSOOOOSOOOOOOOoOOoOoOO 

Be Bo 8B SSB S832 8 eS83S3a323s2eRR3Esz 

ORK MUM TFNOROKNMTMNOR OF UM TNOR ORK UMTNON 

Pololololol ole. ol ed od od ol ol gel oe Sd he Lh Lh ad el eh ll) 
$33383833385333383SS3S5833SSSSS85 

OK VMN FNOROK— MM TNOR. ORK MM TNOR OK UM TNO. 
UCU CUCU CUM MMMM MIMIMOODDOODOOOORL LLL KE 

pierre pererererertrtrt et rererer 

Sssss SSssss SSSss 

ono ono ono ono woo oo ono 

ovT a) ala) iValval al al dl bd bd dh ek ek od ool OLS Le) 
gussessssaasases S88ssssssssssss 

VM TNOr. oO HUM TNO DOOM UMTNOPR-DOO WUNTNOPR- DOO 
RAZOR OSSSBOSSSSSSRON NAAR DOBODOHOOORD 
PANT Niall tlatlatlatiatlat iain ta Tata a aaa ah a a ak ak ke re a a a a a re a a a ee a ala 
NAAN ANNONA NANA NNNNNN NINN NININININ NUNN CCN 





SEQ 0081 


-SBTTL EXPECTED DATA TABLE FOR CSR CHECK TEST 3 


EXPECTED 
EXPECTED 


EEE LEE OO OO 


CSOSOCSCOCOCOCOSCOOOCOCOOCOOCOCOOOOOOOOOOoOooOO 


eSaeaeaeaeaacaeaacaacaacacaacaacaacaacaancaacacec 
AYWNANMNVWVHWHVHHVNWAVWMWHAVWMVMAMVMWNWAAMAMMMNMMNMNMNM 
VVVVVVVVVY VOY YY YVUVYVOUVYVUYUYVUYUYVYVYUYYVUYYUUYYY 


ee Fe Fe Fe Fe Fe Fe FR OR HS FS FS FS FS FS FSFE HS FS TS FS TS FS TS FS HS HS SCS SS SHE SS 


nl el ek el eh ek el el el el el el el el ee el el el le ee 
*®2es*=*8 ®@® &8® @® &® & 8&8 & & & & & *es &©& © &®& & & @& & ses © 8s 8& & & & & 


DOCGODWCOVODGCOCOVOCOCOCOOODOANNUANUAUNNNNAINNN NOC 


Re en en ee ll el el el el el ee ee ee el ee el ee 
*e2e* es 8® @® &8@ Be eee es &® & & & & & & & ewe eeertr.tnas &s & FS 
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EXPECTED DATA TABLE FOR CSR CHECK TEST 


ZDRLCO-DRi1 GEN NPR_INTFC 


C 


NAVIN AINA ANNI NINN NINN NN NUN CC CNC 
OM WUMTNOR. OK CIM TNOR. OF UUM TNOR. OF UM TNO 


el ck el el eh oh ek eh el coe ce eee oe pe el ee el eel eel oe see ee ee gee ee ee 


COCO DTOCOCOCOCCOCOCCOCOCOCOCOCCOO OOO OOOoOoOoOoOoO 


foleleleloelolololololololololofol sia la ia aia la la la la la talialiatial 
OM UM TMN OR ORK WPI TNOR. ORK UMTNOR OK UM TNOr 
DODO QOD ee OOS OOS COST PD PD 
OwOwOsOvs OT OF OF OTF ENE NE NE NE NE Nene 
LOL LL LL LL 


COCO OCOCCOOSCCOOCOCOCOCOCOSCOOSOOOSOOSCOOoOoOOooCOooO 


On- UM TNOF- mee AR oe Lee wt AR wt eh ad Ot 
owowowowowowowowowowowowowowoworvy 
a ak eck mak mal mak sak oak sath sath mah eh mea seh, meh meh meh, dh se seh se meh, seh seh, se 
COCO DOCCOCOCOCOCOCOCOCOOCOOOCOOOOOO OOOO oOoCoOO 
S323 SSIISSSBSSIBSSISSLI SLISSASF 
pag Ng let hg EEE tte A Nt St NG NG NS COCCOSCCO 
SSSSSSSSSSSSSSSSSSSSSSSSSSSS5555 
AOAan ooo°oo +4 ak gu gu uch guth gud gah gel goth ged 1D 1 1d 1D LD LD, 
Pea la atl ae) hh oh oh Lh lh Lh Lh a lh lh ll Lill Lil Ll Lh Lh lh Lal Lill Ln Lindl Ld Lind Wh La Ll) 
RINNE CIN NANI NII N NNN NI NINN NON NOU 


r 








™m 
~“ 


PSPS SSS S a See teeietetete rete 
AU kFwWwnr—OO0Ow 
a 
oO 
Ww 
rs 


DONAUES WN $$ O OONOAUE WN" O0OOn 
oO 
= 


felelelelelejlejlelelelejlelaleololq) 
ed ed ad ed od od od 


010400 


_ 
g 
oO 
~ 


LA. A.WIWAIANA AAW 
Wwrrmn—— 


FEE SER ARADARAARS 
SSEPEEPFESEEEE® 


th ht hh A pH pt A Me 


VERNVOKRNOFOONONOS 


& 
~ 
So 
= 


005037 


004737 
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000001 
000200 
177777 
005274 
002414 
001466 


002414 


004344 
005502 


ae 
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(MAIN PROGRAM - INITIALIZATION ROUTINES 


000004 
000006 


001430 
001431 
002670 


-SBTTL MAIN PROGRAM = INITIALIZATION ROUTINES 


FERRARA AAR ARA EAA A EAA ARETE EERE EATER A AREER AREA TAAEAAARA AAT ARREE 


‘MAIN PROGRAM = INITIALIZATION ROUTINES 


° 
PRR RAE ARETE AREA AE AEA E AAA AARAA AAA TAKARA R AERA HEARHEA HARE E 


START1: CLR 
START: CLR 


MANSIZE 
$ 


SUNIT 
#TOVECT+2,TOVECT 


#BPT, TMOPSW 
#STACK,SP 
PC,SETTUP 
SUNIT 
SDEVCT 
STESTN 
EOPLOC 
#B1TO,SENV 
#B1T7,SENVM 
#-1,MANSIZE 
BEGIN 

PC ,ASIZE 
BEGIN 
QTYBRD 
SDEVM,R2 

R2 

4$ 

QTYBRD 

R2 


3$ 
PC ,DEVADS 
PC,VCTADS 


THE MANSIZE SO WE WILL AUTOSIZE 
SPASS 

$PASS2 

; ERROR NO. 

;CLEAR MESSAGE TYPE 

; TEST NO. 

DEVICE COUNT 

;CLEAR UNIT NUMBER 

;INITIALIZE TIMEOUT VECTORS TO 6 
;CATCHER ROUTINE 


INITIALIZE THE STACK 
;60 TO so hls ROUTINE TO INITIALIZE VECTORS 


WAS CONFIGURATION SET UP IN MULT. BOARD ROUTINE? 
:IF YES, SKIP SELF-SIZING 
or th hae SIZE FOR BOARD CONFIGURATION 


; BRAN 

;CLEAR DEVICE CNT 

;MOVE DEVICE MAP TO R2 

TEST MSB OF DEVICE MAP 

;BR, IF MSB IS ZERO 

; INCREMENT DEVICE COUNT, IF MSB=1 

;CLEAR THE CARRY BIT FOR THE ROL 

;SHIFT NEXT BIT INTO MSB POSITION 
CONTINUE CHECKING $DEVM, IF MORE BITS SET 
GENERATE DEVICE ADDRESS TABLE 
7GENERATE VECTOR ADDRESS TABLE 


SEQ 0082 


Re 


CZDRLCO-DRi1 GEN NPR INTFC 
DETERMINE MEM MGMT AND UPPER MEMORY EXISTENCE 


CUS WN—OOW 
ooooo°o°e°eo 
FRE 


folofloelelelejloefeleajoi a) 
a YS 
RUSSO Ne 
FENEENSANS 


o 
w 
= 
~ 


10546 


@ 
Wnr—o OO~n 


10570 
10576 


WWW 
& S&S 
VOuw 

= 


eccsossssssss 


2408 010770 
409 


240 

2410 010774 
2411 011000 
2412 011002 


233300 
nN 
~“ 

w 
N 


012737 


01 

013737 
104401 
012746 


104402 
104401 


001416 
002716 
002712 


000004 
000004 


002676 
000004 


037170 
053622 
037307 


? 
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002672 


000006 


172304 


000252 


172344 
172364 


002713 
172344 
172364 


002713 
172344 
172364 


002713 


000252 
000250 


000006 
000004 


BEGIN: 


3$: 
4$: 


SEQ 0083 
\SBITL DETERMINE MEM MGMT AND UPPER MEMORY EXISTENCE 
TST SPASS :SEE IF THIS IS THE FIRST PASS 
BNE BEGINI ‘BRANCH IF NOT 
TST $PASS2 ‘SEE IF UPPER LOCATION HAS BEEN SET 
BNE BEGIN ‘BRANCH IF NOT 
CLR MEMGMT “CLEAR THE MEMORY MANAGEMENT FLAG 
MOV TOVECT,OLDPC1 :SAVE TIMEOUT VECTOR 
MOV #3$, TOVECT ‘TIMEOUT VECTOR TO 3$ 
MOV TMOPSW,OLDPS1 :SAVE TIMEOUT P 
MOV #LEVEL?, THOPSW ;PS TIMEOUT TO PRIORITY 7 
TST MRO ‘TEST FOR THE PRESENCE OF MEMORY MANAGEMENT 
INCB RERGAT INCREMENT FLAG | SHOWING MEMORY MANAGEMENT EXISTS 
MOV #77406, KIPDR2 :MAKE KIPDR2 RES 
MOV #77406,KDPDR2 MAKE KDPDR2 RESIDE 
MOV MMVECT.OLDPC2 :SAVE MEMORY FANAGERENT VECTOR 
MCV #1$, AMVECT iMEMORY MANAGEMENT VECTOR TO 1$ 
MOV MMPS ,OLDPS2 AVE MEMORY MANAGEMENT PS 
MOV sLEVEL?, MMPS ‘MERORY MANAGEMENT PS TO PRIORITY 7 
INC MRO STURN ON MEMORY MANAGEMENT 
MOV 72400, KIPAR2 :SET UP KIPAR2 TO ACCESS LOCATION 240000+BITS 12-0 OF NOCARE 
MOV #2400. KDPAR2 SET UP KDPAR2 TO ACCESS LOCATION 240000+BITS 12-0 OF NOCARE 
TST NOCARE “SEE IF BITS 12-0 OF NOCARE ADRS +240000 EXISTS 
BISB  $#BITO,MEMGMT+1 :SET BIT 0 OF UPPER BYTE OF MEMGMT IF IT DOES 
MOV #4400.KIPAR2 SET UP KIPAR2 TO ACCESS LOCATION 440000+BITS 12-0 OF NOCARE 
MOV #4400.KDPAR2  :SET UP KDPAR2 TO ACCESS LOCATION 440000+BITS 12-0 OF NOCARE 
TST NOCARE “SEE IF BITS 12-0 OF NOCARE ADRS #440000 EXISTS 
BISB #BIT1,MEMGMT+1 :SET BIT 1 OF UPPER BYTE OF MEMGMT IF IT DOES 
MOV #6400.KIPAR2  :SET UP KIPAR2 TO ACCESS LOCATION 640000+BITS 12-0 OF NOCARE 
MOV #6400 KDPAR2 ‘SET UP KDPAR2 TO ACCESS LOCATION 640000+BITS 12-0 OF NOCARE 
TST NOCAR :SEE IF BITS 12-0 OF NOCARE ADRS +640000 EXISTS 
BISB PO iTe MENGRT#1 SET BIT 2 OF UPPER BYTE OF MEMGMT IF IT DOES 
BR 2$ “BRANCH OVER STACK CORRECTION 
ADD #4,SP “CORRECT STACK AFTER MM TRAP 
CLR MMRO ‘TURN OFF MEMORY MANAGEMENT 
MOV OLDPS2,MMPS ‘RESTORE MEMORY MANAGEMENT PS 
MOV OLDPC2.MMVECT :RESTORE MEMORY MANAGEMENT VECTOR 
BR 4$ “BRANCH OVER STACK CORRECTION 
ADD #4,SP “CORRECT STACK AFTER TIMEOUT 
MOV OLDPS1,TMOPSW :RESTORE TIMEOUT PS 
MOV OLDPC1.TOVECT  :RESTORE TIMEOUT VECTOR 
TYPE = M1 :TY PE: '(*X) INHIBITS EOP'S, (*Y) FOR ERROR SUMMARY" 
"UNIBUS HANG? RESTART AT ADDRESS ' 
MOV #UBHANG,-(SP) | :MOVE ADDRESS OF HANG ROUTINE TO STACK 
TYPOC :GO TYPE THE ADDRESS IN OCTAL 
TYPE  ,MIA : "CZDRLCO DR11 GEN we INTFC LOGIC TEST® 


G 7 
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. 
2469 peeeeeeeeeeeeeeeeeeeereeeeeertreteneeeteneeteeteeeteretereeeearenes 


‘PREPARE ADDRESSES AND VECTORS FOR UUT SEQ 0084 
2413 .SBTTL PREPARE ADDRESSES AND VECTORS FOR UUT 
2414 011006 012737 000001 002544 BEGINT: MOV #BITO,DEVMSK ;SET UP BIT MASK TO TEST SDEVM FOR DEVICES 
| 2615 011014 005037 002546 LR TABINX :CLEAR LOCATION TO STORE TABLE OFFSETS 
| 2416 011020 033737 002544 001466 TSTDEV: BIT DEVMSK,S$DEVM § :CHECK TO SEE IF DEVICE IS TO BE TESTED 
| 2417 011026 001026 BNE $ BR, IF YES 
| 2418 011030 005737 002544 TST DEVMSK :SEE If BIT 15 IS SET 
| 2419 011034 100013 BPL 1$ :BRANCH TO CONTINUE IF NOT SET 
2420 011036 005737 001416 TST SPASS SEE IF THIS IS THE FIRST PASS 
2421 011042 001361 BNE BEGINI ‘BRANCH TO REINITIALIZE THE DEVMSK LOCATION IF NOT 
2422 011044 005737 002716 TST $PASS2 :SEE IF THIS IS THE FIRST PASS 
2423 011050 001356 BNE BEGIN1 “BRANCH TO REINITIALIZE THE DEVMSK LOCATION IF NOT 
2424 011052 104401 037037 TYPE — ,NODVPR ‘TYPE: 'NO DEVICES RECOGNIZED - DIAGNOSTIC CANNOT BE RUN' 
2425 : "RESTART AT 204 IF A DEVICE IS PRESENT’ 
2426 011056 000000 HALT “FATAL ERROR - HALT HERE 
2427 011060 000137 010266 JMP START1 ;JUMP TO START1 TO CHECK AGAIN FOR A MODULE 
2428 011064 006337 002544 1$: ASL DEVMSK SSHIFT MASK TO CHECK NEXT $DEVM BIT 
2429 011070 062737 000002 002546 ADD #2, TABINX SINCREMENT TABLE INDEX 
2430 011076 005237 001422 INC SUNIT : INCREMENT UNIT NUMBER 
ot3) 011102 000746 BR TSTDEV 3G0 TEST NEXT BIT OF DEVICE MAP 
2433 011104 006337 002544 2$: ASL DEVMSK sUPDATE DEVICE MAP TEST MASK 
2434 011110 013702 002546 MOV TABINX ,R2 :MOVE TABLE OFFSET TO R2 
2435 011114 062737 000002 002546 ADD #2, TABINX sUPDATE TABLE OFFSET FOR NEXT DEVICE 
2436 011122 016200 002416 MOV REGADR(R2) ,RO ;PUT UUT ADDRESS INTO RO 
2437 011126 012701 002516 MOV #WCR,R1 :POINT R1 TO STORAGE AREA FOR UUT ADDRESSES 
2438 011132 012703 000004 MOV #4,R [MOVE 4 ADDRESSES 
2439 011136 010021 3$: MOV RO, (R1)+ ; TRANSFER UUT ADDRESS 
2440 011140 062700 000002 ADD #2,R0 sPOINT TO NEXT UUT REGISTER 
2441 011144 005303 DEC R3 :DECREMENT THE LOOP COUNTER AND 
2442 011146 001373 BNE 3$ ;BRANCH IF NOT DONE TRANSFERING 
2443 011150 016200 002456 MOV VECADR(R2) ,RO ;PUT UUT VECTOR INTO RO 
2444 011154 010021 MOV RO,(R1)+ ; TRANSFER UUT VECTORS TO ACTIVE TABLE AREA 
2445 011156 062700 000002 ADD #2,R0 :POINT TO NEXT VECTOR 
2446 011162 010011 MOV RO, (R1) [TRANSFER VECTOR TO TABLE AREA 
2447 011164 016237 001474 002720 MOV $SDDWO(R2) ,.DDW :SET UP DDW TO PROPER DEVICE DESCRIPTOR WORD 
2448 011172 013737 002720 002552 MOV DOW, DRLEV ;MOVE THE WORD TO THE DRLEV LOCATION 
2449 011200 042737 177437 002552 BIC #177437,DRLEV ;STRIP ALL BITS EXCEPT BR LEVEL 
2450 011206 105037 030707 REINIT: CLRB CHARCT :CLEAR THE CHARACTER LOCATION OF ANY CHARACTER 
2451 011212 004737 004374 JSR PC ,BPINIT [GO RESET THE ''.+2°° AND 'BPT'’ LOCATIONS 
2452 011216 004737 004036 JSR PC, CLENUP SSUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
2453 011222 105737 002706 TSTB —- EOPLOC “SEE IF *X IS ENABLED (IS THE PRINTER DISABLED) 
2454 011226 001006 BNE TST1 :GO DO TEST IF NOT 
2455 Pe eeeRee Kee eeAeeAee Ae ee eee ete eeeeeee teeter eteeaeaeeeKteAeeeeeert 
2456 it *DO*NOT*REMOVE* THE *WAIT*LOOP*ROUTINE*BELOW*. BECAUSE OF THE SPEED OF THIS DIAG- 
2457 ;* NOSTIC (.125 SECOND FOR 1 PASS, NO ERRORS), SOME VIDEO TERMINALS PRINT ERRONEOUS 
2458 3 CHARACTER(S) WITH THE EOP MESSAGE DUE TO THE RESET EXECUTED IN TEST 4. THIS WAIT 
2459 3 LOOP ENABLES THOSE TERMINALS TO ‘CATCH UP’ BEFORE ITS EXECUTION. 
2460 Peeeeeeeeeeeeeeeeraeeeeeeeeeerreereeeteeeeereeeteeetereeeeeeererete 
2461 011230 012737 010000 011240 MOV #10000,28 ;REESTABLISH THE WAIT LOOP COUNTER 
2462 011236 005327 1$: DEC (PC) + [DECREMENT THE LOCATION TO KILL TIME 
2463 011240 010000 2$: .WORD 10000 [LOCATION TO BE DECREMENTED 
2464 011242 001375 : BNE 1$ BRANCH BACK UNTIL ZERO 
2465 peeeeeeeeeeeeeeeeeeereeeteteereeteeeeeeeeeteeeeeteneeetereeeeeeeees 
2466 3 
2467 [MAIN PROGRAM = DEVICE TESTS 
2468 


: + oe 
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TEST #1 = CAN ALL DR11 REG BE ADDRESSED WITHOUT ERROR? 


2477 -SBTTL TEST #1 = CAN ALL DR11 REG BE ADDRESSED WITHOUT ERROR? 


PRRAAKAAAAAAAAAAAAAAAAAH AAA TLe Tee ATA AKeKeeeetKAKKeKeReAeAReKeeKeAes 


s*TEST 1 CAN ALL DR11 REG BE ADDRESSED WITHOUT ERROR? 


te THIS TEST INSURES THAT THE CSR, BAR, BDR AND WCR REGISTERS CAN BE 

;* ying FOR THIS DEVICE. IF NOT, THE REST OF THE DIAGNOSTIC CANNOT 
** . 
tt 


RARER AAARERAAAEEAAE RATATAT EAAAAAARAAAARAEAAHAAAARAAAAAAAAAT A 


} 
011244 032777 004000 17006€ TST1: BIT #B1T11,aSwR 788 TEST TO SEE IF TEST NUMBER TRACER ENABLED 
011252 001407 BEQ 1001$ 388 BRANCH IF NOT 
011254 104401 011262 TYPE , 10008 388 TYPE: ‘'T # 1" 
011260 000404 BR 1001$ ;8& GET OVER ASCII 
011262 124 040 043 1000$: riety /T # 1AKCRLF> «588 THE ASCII MESSAGE 
011272 1001$: 
011272 000004 SCOPE ;PROCESS LOOPING AND TEST NUMBER INCREMENT 
011274 012737 011302 001310 MOV #999$ ,SLPERR ;SET LOOP ON ERROR TO 999% 
2478 011302 005037 001312 999$: CLR SERTTL ;CLEAR THE ERROR TOTAL - NEW PASS 
2479 011306 012737 011410 000004 MOV #1$,BUSERR ;CPU ERROR VECTOR TO 1$ 
2480 011314 013737 002516 002550 MOV WCR,DREG ;SAVE ADDRESS FOR POSSIBLE ERROR TYPING 
2481 011322 005777 171170 TST awCR sACCESS REGISTER 
2482 011326 013737 002520 002550 MOV BAR ,DREG ;SAVE ADDRESS FOR POSSIBLE ERROR TYPING 
2483 011334 005777 171160 TST @BAR sACCESS REGISTER 
2484 011340 013737 002522 002550 MOV CSR,DREG ;SAVE ADDRESS FOR POSSIBLE ERROR TYPING 
2485 011346 005777 171150 TST acsrR sACCESS REGISTER 
2486 011352 013737 002524 002550 MOV BOR ,DREG SAVE ADDRESS FOR POSSIBLE ERROR TYPING 
2487 011360 005777 171140 TST aBDR sACCESS REGISTER 
2488 011364 013737 002526 002550 MOV DRINV,DREG ;SAVE ADDRESS FOR POSSIBLE ERROR TYPING 
2489 011372 005777 171130 TST @aDRINV sACCESS REGISTER 
2490 011376 005737 001312 TST SERTTL ;SEE IF THERE WERE ANY ERRORS 
2491 011402 001414 BEQ 2$ ;BRANCH TO CONTINUE IF NONE 
2492 011404 000137 024360 JMP ENDEV GO TO END OF DEVICE ROUTINE - FATAL ERRORS 
2493 011410 012637 002672 1$: MOV (SP)+,OLDPC1 ;SAVE PC OF TRAP FOR ERROR PRINTOUT 
2494 011414 012637 002674 MOV (SP)+,OLDPS1 SAVE PS FOR RESTORATION AFTER ERROR CALL 
2495 011420 104001 ERROR +1 ;CANNOT ACCESS DR11 REGISTER 
2496 011422 013746 002674 MOV OLDPS1,-(SP) ;PUT PS BACK ON STACK 
2497 011426 013746 002672 MOV OLDPC1,-(SP) ;PUT PC BACK ON STACK 
2498 011432 000002 RTI ;RETURN TO PROGRAM 
2499 011434 012737 000006 000004 2%: MOV #6,BUSERR ;RESTORE #6 TO BUS ERROR 


SEQ 0085 
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T #2 = CHECK B OR W STATUS IS AS EXPECTE SEQ 0086 
2506 .SBITL TEST #2 = CHECK B OR W STATUS IS AS EXPECTED 
FRARAAAAATAARAAAAAATAHATAAAAA HAAR AKAAAAAATATKAAAAKAK KKK AR AAA A TAA AAT 
i sTEST 2 CHECK B OR W STATUS IS AS EXPECTED 
ie THIS TEST INSURES THAT THE B OR W STATUS IN THE DEVICE DESCRIPTOR 
it WORD MATCHES WHAT THE EIR SAYS THE MODULE IS. 
** 
Seeeeeeeeeeeeeeeeeeeeeeeeeneeereeeeeeneeeeeeeeeeneeeetenereeeeeeent 
011442 032777 004000 167670 TsT2: BIT #BIT11,aSwR :@& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
011450 001407 BEQ 1001$ :@& BRANCH IF NOT 
011452 104401 011460 TYPE 1000$ [8 TYPE: "'T # 2" 
011456 000404 BR 1001$ :8& GET OVER ASCII 
011460 124 040 043 10008: -ASC1Z /T # 2/<CRLF>  :8& THE ASCII MESSAGE 
011470 1001$: 
011470 000004 SCOPE ;PROCESS LOOPING AND TEST NUMBER INCREMENT 
011472 012737 011500 001310 MOV #999$,SLPERR © SET LOOP ON ERROR TO 999$ 
2507 011500 005077 171016 999$: CLR acsR -GO TO CSR 
2508 011504 012777 100000 171010 MOV WEIR, aCSR ‘FORCE TO BE EIR 
2509 011512 017737 171004 002610 MOV aCSR,BORW SATTEMPT EIR READ 
2510 011520 042737 177776 002610 BIC #CBIT0,BORW ‘MASK OFF ALL BITS EXCEPT BIT 0 
2511 011526 013737 002720 001362 MOV DDW,$TMP1 [GET DEVICE DESCRIPTOR WORD 
2512 011534 042737 177776 001362 BIC #CBITO,STMP1 :MASK OFF ALL BUT B OR W BIT 
2513 011542 001403 BEQ 1$ ‘BRANCH IF IT IS CLEAR 
2514 011544 005037 001362 CLR $TMP1 ‘CLEAR THE BIT 
2515 011550 000403 BR 2$ ‘60 TEST THE BIT 
2516 011552 012737 000001 001362 1S: MOV #1,$TMP1 :SET THE BIT 
2517 011560 023737 002610 001362 2$: CMP BORW, $TMP1 ‘BOR W STATE AS EXPECTED? 
2518 011566 001401 BEQ TST3 ‘BRANCH IF OK 
2519 011570 104002 ERROR +2 “DRI1- -B OR W MODE INCORRECT (0=B, 1=W) 


f . . _ . - . _ ee — ———— 
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‘TEST #3 = CHECK CSR BIT PATTERNS WITH MAINT BIT SET SEQ 0087 
2527 .SBTTL TEST #3 = CHECK CSR BIT PATTERNS WITH MAINT BIT SET 
FRA AA EAA EAE AAA EA ATER AA AAA AA AAA AAAAAA ARATE AAA AA AAA AAA AAA A ATE 
*TEST 3 CHECK CSR BIT PATTERNS WITH MAINT BIT SET 
tt 
ie THIS TEST SETS ALL POSSIBLE COMBINATIONS OF SET BITS IN THE CSR WITH 
3 THE MAINTENANCE BIT SET, AND COMPARES THE RECEIVED CSR CONTENTS WITH 
3* THAT OF THE EXPECTED SATTERNS IN THE 'MAISET' TABLE. 
** 
[eeeteeeeeeeeeeeeeeeeeeeeeeeeeeeeneeeteeeeerteereeeteeeeteeeneeeers 
011572 032777 004000 167540 TST3: BIT #B1T11,aSwR 388 TEST TO SEE IF TEST NUMBER TRACER ENABLED 
011600 001407 BEQ 1001$ 88 BRANCH IF NOT 
011602 104401 011610 TYPE , 1000$ £88 TYPE: "'T # 3°° 
011606 000404 BR 1001$ °@& GET OVER ASCII 
011610 124 040 043 1000$: yooh /T # 3/<CRLFD +88 THE ASCII MESSAGE 
011620 10018: 
011620 000004 SCOPE ;PROCESS LOOPING AND TEST NUMSER INCREMENT 
011622 012737 011704 001310 MOV #999$ ,SLPERR :SET LOOP ON ERROR TO 999$ 
2528 011630 004737 004036 JSR PC,CLENUP : SUBROUT INE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
2529 011634 012737 000200 001362 MOV #RY, STMP1 ‘MOVE READY BIT TO $TMP1 
2530 011642 032737 000004 002720 BIT #B1T2,00W :TEST TO SEE IF CABLE IS IN 
2531 011650 001003 BNE 1$ ;BRANCH AROUND NON-CABLE SETUP IF IN 
2532 011652 052737 127000 001362 BIS #127000,$TMP1 :SET THE BITS TO BE EXPECTED IN S$TMP1 
2533 011660 012701 007266 1$: MOV #MALSET,R1 :MOVE ADDRESS OF EXPECTED PATTERNS TO R1 
2534 011664 012702 010000 MOV #MA,R2 sSTART WITH JUST THE MAINTENANCE BIT 
2535 011670 005037 002714 CLR ERRCNT >CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +202 
2536 011674 012700 000002 MOV #2,R0 “DO 2 SETS OF 200 PATTERNS 
2537 011700 012703 000200 2$: MOV #200,R3 “MOVE 200 TO THE LOOP COUNTER 
2538 011704 052777 010000 170610 999$§: BIS #MA,aCSR ;SET MAINTENANCE AND 
2539 011712 005077 170604 CLR acsrR ;CLEAR TO DO AN INIT 
2540 011716 017737 170600 002560 MOV aCSR,RCSR ‘MOVE RECEIVED DATA TO RCSR 
2541 011724 023737 001362 002560 CMP STMP1,RCSR *MAKE SURE EXPECTED DATA CAME UP 
2542 011732 001404 BEQ 3$ ‘BRANCH IF SO 
2543 011734 013737 001362 002572 MOV STMP1.ECSR ‘MOVE EXPECTED DATA TO ECSR 
2544 011742 104032 ERROR +32 CSR 1S WRONG 
23545 011744 012777 177777 170544 38: MOV #-1,aWCR sMOVE 1 WORD COUNT TO WCR IN CASE OF IE ENABLED 
2546 011752 012777 053700 170540 MOV #NOCARE, aBAR sMOVE A NOT-CARE ADDRESS TO BAR FOR SAME REASON 
2547 011760 010277 170536 MOV R2,aCSR ‘SET THE PARTICULAR FUNCTION BITS IN CSR 
2548 011764 017737 170532 002560 MOV acsr, RCSR SMOVE RECEIVED DATA TO RCSR 
2549 011772 011137 002572 MOV (R1) .ECSR [MOVE EXPECTED DATA TO ECSR 
2550 011776 023787 002572 002560 CMP ECSR.RCSR : COMPARE EXPECTED WITH RECEIVED 
2551 012004 001425 BEQ 7$ ‘BRANCH IF OK 
2552 012006 012737 000401 012016 MOV #CY¥+G0,4$ sREESTABLISH TEST PATTERN 
2553 012014 040227 BIC R2,(PC)+ : SEE IF BOTH CYCLE AND GO WERE SET 
2554 012016 000401 4$: WORD CY+GO sLOCATION TO HOLD BOTH CYCLE AND GO BITS 
2555 012020 001013 BNE 6$ ‘BRANCH TO ERROR ONLY IF CYCLE AND Be WERE SET 
2556 012022 032737 000060 002572 BIT #X6+X7,ECSR “SEE IF EITHER XBA16 OR XBA17 ARES 
2557 012030 001407 BEQ 6$ ‘BRANCH TO ERROR IF BOTH ARE CLEAR 
2558 012032 052737 140000 002572 5$: BIS #ERtNX,ECSR + THE ERROR AND NEX BITS - EXPECT THEM TO SET 
2559 012040 023737 002560 002572 CMP RCSR,ECSR OW SEE IF DATA MATCHES 
2560 012046 001415 BEQ 10$ ‘BRANCH AROUND ERROR IF IT DOES 
2561 012050 010237 002536 6$: MOV R2,BUT sMOVE THE BITS SET INTO CSR TO THE BUT LOCATION 
256 012054 104202 ERROR +202 [CSR PATTERN NOT CORRECT 
2563 012056 000411 BR 10$ ‘BRANCH AROUND MM TESTS 
2564 012060 012737 000401 012070 7%: MOV #CY+G0,8$ “REESTABLISH TEST PATTERN 
2565 012066 040227 BIC R2, (PCS+ ‘SEE IF BOTH CYCLE AND GO WERE SET 
2566 012070 000401 8$: WORD CY¥+GO ‘LOCATION TO HOLD BOTH CYCLE AND GO BITS 
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TEST #3 - CHECK CSR BIT PATTERNS WITH MAINT BIT SET SEQ 0088 
2567 012072 001003 BNE 108 “BRANCH AROUND MEM MGMT TEST IF EITHER OR BOTH WERE CLEAR 
2568 012074 004737 006134 9$: JSR PC, TSTMM :GO CHECK FOR MEMORY MANAGEMENT EXISTENCE 
2569 012100 000754 BR 5$ SIF RETURN IS HERE, GO BACK TO SET EXPECTED DATA 
2570 012102 062701 000002 10$: ADD #2,R1 s INCREMENT R1 TO NEXT EXPECTED PATTERN 
2571 012106 005202 INC R2 ‘INCREMENT THE PAT 
2572 012110 005303 DEC R3 ‘DECREMENT THE OUP COUNTER 
2573 012112 001274 BNE 999$ BRANCH BACK IF NOT DONE 
2574 012114 062702 000200 ADD #200,R2 D 200 TO PATTERN LOCATION 
2575 012120 005300 DEC RO SOECRERENT THE LOOP COUNTER A 
2576 012122 001266 BNE 2$ ‘BRANCH BACK IF 2ND OCTAL EROUP NOT DONE 





Reape GEN NPR INTFC 
ITEST #4 = CHECK WCR, BAR & BDR, 
2583 
012124 032777 004000 
012132 001407 
012134 104401 012142 
012140 000404 
012142 12 040 
012152 
012152 000004 
012154 012737 012162 
2584 012162 012777 010000 
2585 012170 005077 170326 
2586 012174 012777 010000 
2587 012202 012777 177777 
2588 012210 017737 170302 
2589 012216 022737 177777 
2590 012224 001423 
2591 012226 012737 012236 
2592 012234 000412 
2593 012236 012777 177777 
2594 012244 017737 170246 
2595 012252 022737 177777 
2596 012260 001401 
2597 012262 104010 
2598 012264 032777 001000 
2599 012272 361 
2600 012274 012777 177777 
2601 012302 017737 170212 
2602 012310 022737 177776 
2603 012316 001426 
2604 012320 012737 012336 
2605 012326 012737 177776 
2606 012334 000412 
2607 012336 012777 177777 
2608 012344 017737 170150 
2609 012352 022737 177776 
2610 012360 001401 
2611 012362 104012 
2612 012364 032777 001000 
2613 012372 001361 
2614 012374 052777 000001 
2615 012402 017737 170114 
2616 012410 012777 177777 
2617 012416 017737 170076 
2618 012696 022737 177777 
2619 124 2 001431 
620 012434 012737 012452 
2621 012442 012737 177777 
36¢2 012450 000415 
2623 012452 017737 170044 
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CLRS 4 DEV REGS SEQ 0089 
-SBTTL TEST #4 = CHECK WCR, BAR & BOR, & RESET CLRS 4 DEV REGS 
PUTETTITITITITITIITITTITILITILTLLILI LILLE LLL Ethie hi 
;*TEST 4 CHECK WCR, BAR & BDR, & RESET CLRS 4 DEV REGS 

;¢ THIS TEST INSURES THAT THE WCR, BAR AND BDR REGISTER BITS CAN ALL BE 

a9 SET, AND THAT A RESET CLEARS ALL 3 PLUS THE CSR REGISTER. 

-* 

[Heeeeeeeeneeeeeeeeeeeetededeeneeneenaeeeeeeeeeeeereeneenereeeeeree 

TST4: BIT #B1T11,aSWR 388 TEST TO SEE IF TEST NUMBER TRACER ENABLED 

BEQ 1001$ 88 BRANCH IF NOT 
TYPE 1000$ 78 TYPE: ‘T # 
BR 001$ :8& GET OVER ASCII 
1000$: ye /T # G/<CRLF> © 38& THE ASCII MESSAGE 
1001$ 
SCOPE ;PROCESS LOOPING a TEST NUMBER INCREMENT 
MOV #999$ ,SLPERR ;SET LOOP ON ERROR TO 999$ 
999$: MOV #MA,aCSR SET THE SS att BIT AND 
CLR acsr ;CLEAR TO DO AN INIT 
MOV #MA,aCSR :SET THE MAINTENANCE BIT TO DO THIS TEST IN MAINT MODE 
MOV #-1,aWCR ;ALL_ONES TO WCR 
MOV auck, RWCR ;MOVE RECEIVED DATA TO RWCR 
CMP #-1,RWCR ;SEE IF DATA WAS LOADED PROPERLY 
BEQ is ;BRANCH IF OK 
MOV #1$,SLPERR s;MOVE NEW LOOP ON ERROR LOCATION TO S$LPERR 
BR 2$ ;BRANCH OVER LOOP SETUP 
1$: MOV #-1,aWCR sALL_ONES TO WCR 
MOV aWCR ,RWCR ;MOVE RECEIVED DATA TO RWCR 
CMP #-1,RWCR :SEE IF ne WAS LOADED PROPERLY 
BEQ 3$ BRANCH 
2$: ERROR +10 ATTEMPT To SET ALL WCR BITS FAILED 
3$: BIT #B1T9,aSwR ;SEE If WE SHOULD LOOP BACK 
BNE 1$ :BRANCH BACK IF . 
4$: MOV #-1, BAR zALL_ONES TO BAR 
MOV @BAR ,RBAR :MOVE RECEIVED DATA TO R 
CMP #-2,RBAR :SEE IF ALL BITS WERE SET. toon’ T EXPECT BIT O TO SET) 
BEQ 8$ s;BRANCH IF OK 
MOV #5$,SLPERR s;MOVE NEW LOOP ON ERROR + hee TO SLPERR 
MOV #-2,EBAR sMOVE EXPECTED DATA i. — 
BR 6$ ;BRANCH OVER oo SETU 
5$: MOV #-1, BAR ALL ONES TO BAR 
MOV @BAR ,RBAR ‘ROVE RECEIVED DATA TO RBAR 
CMP #-2,RBAR 3 SEE IF ALL BITS WERE SET (DON'T EXPECT BIT 0 TO SET) 
BEQ 7$ sBRANCH IF OK 
63: ERROR +12 ATTEMPT TO SET ALL BAR BITS TO 1 FAILED 
7$: BIT #B1T9,aSwR ;SEE IF WE SHOULD LOOP BACK 
BNE 5$ ;BRANCH BACK IF S 
8$: BIS #60 ,acsR ;SET GO TO CLEAR READY TO — TO SET BAR BIT 0 
MOV acsk,RCSR :READ CSR TO SET BIT O OF BAR 
MOV #-1, @BAR L_ONES TO BAR 
MOV BAR, RBAR ‘RO E RECEIVED DATA TO RBAR 
CMP #-1,RBAR :SEE IF ALL BITS WERE OSE (*pO* EXPECT BIT 0 TO SET) 
BEQ 128 BRAN CH IF OK 
MOV #9$ , SLPERR sMOVE NEW LOOP ON ‘ery LOCATION TO SLPERR 
MOV #-1,EBAR sMOVE EXPECTED DATA 7 EBAR 
BR ;BRANCH OVER LOOP SETU 
9$: MOV @CSR,RCSR ACCESS CSR TO SET BIT im OF BAR 
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TEST #4 = CHECK WCR, BAR & BDR, & RESET CLRS 4 DEV REGS SEQ 0090 
2624 012460 012777 177777 170032 MOV #-1,QBAR ;ALL_ONES TO BAR 
2625 012466 017737 170026 002566 MOV @BAR ,RBAR ;MOVE RECEIVED DATA TO RBAR 
2626 012474 022737 177777 002566 CMP #-1,RBAR :SEE IF ALL BITS WERE SET (*DO* EXPECT BIT 0 TO SET) 
2627 012502 001401 BEQ 11$ ;BRANCH IF OK 
2628 012504 10401 10$: ERROR +12 ;ATTEMPT TO SET ALL BAR BITS TO 1 FAILED 
soe) 012506 032777 001000 166624 11%: BIT #BIT9,asuR SEE IF WE SHOULD LOOP BACK 
2630 012514 001356 BNE 9$ ;BRANCH BA 4 IF SO 
2631 012516 012777 177777 170000 128: MOV #-1,aBDR ;ALL_ONES TO BDR 
2632 012524 017737 167774 002564 MOV aBDa. RBOR ;MOVE RECEIVED DATA TO RBDR 
2633 012532 022737 177777 002564 cMP #-1,RBDR ;SEE IF DATA WAS LOADED PROPERLY 
2634 012540 001423 BEQ BRANCH IF OK 
2635 012542 012737 012552 001310 MOV #13$,SLPERR :MOVE NEW LOOP ON ERROR LOCATION TO SLPERR 
2636 012550 000412 BR 14$ ;BRANCH wee LOOP SETUP 
2637 012552 012777 177777 167744 138: MOV #-1,aBDR ;ALL_ONES TO BDR 
638 012560 017737 167740 002564 MOV @BOR ,RBOR ;MOVE RECEIVED DATA TO RBDR 
639 012566 022737 177777 002564 CMP #-1,RBDOR ;SEE IF DATA WAS LOADED PROPERLY 
2640 012574 001401 BEQ 15$ BRANCH IF OK 
2641 012576 104027 14$: ERROR +27 sALL BDR BITS ARE NOT SET 
2642 012600 032777 001000 166532 15$: BIT #B1T9,aSwWR ;SEE IF WE SHOULD LOOP BACK 
2643 012606 001361 BNE ;BRANCH BACK IF SO 
2644 012610 012777 010576 167704 16$: #10576,aCSR ;SET ALL CSR WRITEABLE BIT 
2645 012616 000005 RESET ;RESET THE WORLD OF ITS TROU LES - HOPEFULLY 
2646 012620 012737 012162 001310 MOV #999% ,SLPERR ;RESET THE sites ON ERROR LOCATION 
2647 012626 017737 167664 002570 MOV awWCR,RWCR WAS WCR CLEAR 
2648 012634 001401 BEQ 17$ ;BRANCH IF WCR vAS CLEARED 
2649 012636 104007 ERROR +7 ;RESET FAILED TO CLEAR WCR 
2650 012640 017737 167654 002566 17$: MOV @BAR ,RBAR oath. oe) Bt DATA TO RBAR 
2651 815688 001403 BEQ 18$ ;BRANCH IF BAR WAS CLEARED 
2652 012650 005037 002600 CLR EBAR SCLEAR EXPECTED LOCATION 
2653 012654 104011 ERROR +11 RESET FAILED TO CLEAR BAR 
2654 012656 017737 167640 002560 18$: MOV @CSR,RCSR ;MOVE RECEIVED DATA TO RCSR 
2655 012664 012737 000200 002572 MOV #RY,ECSR ;MOVE EXPECTED DATA TO ECSR 
2056 012672 004737 004060 JSR PC,CHKCAB :GO CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY 
2657 012676 023737 002572 002560 CMP ECSR,RCSR sSEE IF Plt ake DATA WAS RECEIVED 
2658 012704 001401 BEQ 19$ ;BRANCH IF IT W 
2659 012706 104032 ERROR +32 sREADY IS NOT THE ONLY BIT SET 
2660 012710 052777 010000 167604 19$: BIS #MA,aCSR :MAINT MODE (SO THAT IDR GETS ODR CONTENTS> 
2661 012716 017737 167602 002564 MOV @BDR,RBDR ;MOVE CONTENTS OF BDR TO RBDR 
2662 012724 001401 BEQ TST5 ;BRANCH IF IT CORRECTLY REMAINS ZERO 


2663 012726 104026 ERROR +26 ;BDR IS NOT CLEAR 
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TEST #5 - DEVICE INIT CLEARS CSR, WCR, BDR AND B 


2669 -SBTTL TEST #5 = DEVICE INIT CLEARS CSR, WCR, BDR AND BAR 
PTTITETITTITITITITITITICITITITINI ITT tthe eeeeer 


TEST 5 DEVICE INIT CLEARS CSR, WCR, BDR AND BAR 
ie THIS TEST INSURES THAT DEVICE INIT CLEARS THE CSR, WCR, BOR AND BAR. 
-* 





SEQ 0091 


RERRERAEREERERREREAAAEAAAEATAAAAAAAAAAAARAEAAAAAAAAATAAAAAAAAHRARETE 


012730 032777 004000 166402 TST5: BIT #B1T11,aSwWR 788 TEST TO we IF TEST NUMBER TRACER ENABLED 
012736 001407 BEQ 1001$ 788 nn peal IF N 
012740 104401 012746 TYPE 10008 ; YPE: ‘'T # 5°’ 
012744 000404 R 001$ 788 GET OVER ASCII 
012746 124 040 043 10008: seth /T # S/<CRLF> 38% THE ASCII MESSAGE 
012 000004 1001$: SCOPE 
on 012760 005077 167536 999$: CLR acsr ; FORCE occas TO CSR 
1 012764 012777 177777 167524 MOV #-1,aWCR ;ALL ONES TO WCR 
ser2 012772 012777 177777 167524 MOV a ore a ONES TO ne 
3 01 012777 177777 167512 MOV ALL ONES TO BAR 
674 0130 012777 010576 167506 MOV r0s7e. CSR ;SET ALL WRITEABLE BITS IN THE CSR 
2675 013014 042777 010000 167500 BIC WMA, acSR [CLEAR THE MAINT BIT TO DO AN INIT 
676 013022 017737 167470 002570 MOV aWCR,RWCR ;MOVE RECEIVED CONTENTS TO RWCR 
677 033030 001401 BEQ 1$ ;BRANCH IF WCR WAS ery 
2678 013032 104003 ERROR +3 sINIT FAILED TO CLEAR WCR 
9 01 017737 167460 002566 1$: MOV @BAR ,RBAR ;MOVE RECEIVED CONTENTS TO RBAR 
01 001403 BEQ 7 4 ;BRANCH IF BAR WAS CLEARED 
2681 013044 005037 002600 CLR EBAR © ;CLEAR EXPECTED LOCATION 
2682 013050 104004 ERROR +4 ;INIT FAILED TO CLEAR BAR 
et 013052 017737 167444 002560 2%: MOV aCSR,RCSR ;MOVE RECEIVED DATA TO RCSR 
684 013060 012737 000200 002572 MOV #RY,ECSR :EXPECT READY BIT ONLY TO BE SET 
2685 013066 004737 004060 JSR PC,CHKCAB 3G0 CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY 
2686 013072 023737 002572 002560 CMP ECSR,RCSR ;SEE IF EXPECTED DATA WAS tt tg VED 
2687 013100 00140 BEQ 3$ [BRANCH IF THEY WERE ALL CLEAR 
26088 013102 1040 ERROR +6 sINIT FAILED TO CLEAR ALL CSR R-W BITS 
2689 013104 012777 010000 167410 3$: MOV #MA,aCSR [GO BACK INTO MAINT MODE (SO THAT IDR GETS ODR CONTENTS) 
2690 013112 017737 167406 002564 MOV @BDR,RBOR :MOvE RECEIVED CONTENTS TO RBOR 
2691 013120 001401 BEQ TST6 ;BRANCH IF IT WAS CLEARED 
2692 013122 104005 ERROR +5 :INIT FAILED TO CLEAR BDR 
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TEST #6 - BIT PATTERN TEST OF WCR, BOR AND BAR REGISTERS SEQ 0092 
2702 -SBTTL TEST #6 - BIT PATTERN TEST OF WCR, BDR AND BAR REGISTERS 
PTTITETTITITITITITITITITITITI TITTLE t ttt t ett 
i*TEST 6 BIT PATTERN TEST OF WCR, BDR AND BAR REGISTERS 


THIS TEST RUNS 7 BIT PATTERNS THROUGH THE WCR, coe AND BAR TO CHECK FOR 
ANY STUCK OR SHORTED PINS. LOCATION SLPERR IS NOT SET UP AT THE START 


RRR AAARERAEERAAAAAAAAEAAEAAAAAREAAARAAAAAAEAATAATAAAAATE 


013124 032777 004000 166206 TST6: BIT #B1T11,aSwR ;@& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
013132 001407 BEQ 1001$ 788 BRANCH IF NOT 
013134 104401 013142 TYPE , 1000$ :8& TYPE: "T # 6" 
013140 000404 BR 10018 788 GET OVER ASCII 
013142 124 040 043 10008: ret /T # O/<CRLF> 88 THE ASCII MESSAGE 
013152 000004 1001$: SCOPE 
2703 013154 004737 004036 JSR PC,CLENUP ;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
2704 013160 005037 002714 CLR ERRCNT 7CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +204 
2705 013164 012701 006250 MOV #PATRNS,R1 :MOVE rte bee OF BIT PATTERNS TO R1 
2706 013170 012702 000007 MOV #7,R2 :D0 7 PATTERNS 
2707 013174 012777 010000 167320 1$: MOV #MA,aCSR :60 TO PAAINTENANCE MODE & SET GO TO DISABLE BAR BIT 0 
2708 013202 011177 167316 MOV (R1) ,@BDR :MOVE THE DATA TO BDR 
2709 013206 017737 167312 002564 MOV @BOR ,RBOR ;MOVE RECEIVED DATA TO RBDR 
2710 013214 021137 002564 CMP (R1),RBOR * SEE IF EXPECTED DATA WAS RECEIVED 
2711 013220 001423 BEQ RANCH IF SO 
Siig O1 3566 012737 013236 001310 MOV #2$,SLPERR SET UP LOOP ON ERROR LOCATION 
713 013 011137 002576 MOV (R15 ,EBOR ;MOVE EXPECTED DATA TO EBDR 
2714 013234 000410 BR 3$ ;SKIP OVER LOOP ON ERROR SETUP 
2715 013236 011177 167262 2$: MOV (R1) ,@BDR ;LOAD BIT PATTERN TO BOR 
2716 013242 017737 167256 002564 MOV @BDR,RBOR ;MOVE RECEIVED DATA TO RBDR 
. 2717 013250 021137 002564 CMP (R1),RBDR :SEE IF DATA IS OK 
2718 013254 001401 BEQ 4% sBRANCH OUT IF SO = OK NO 
2719 013256 104205 3$: ERROR +205 ;BDR PATTERN NOT CORRECT 
2720 013260 032777 001000 166052 4$: BIT #B1T9,aSwR ;SEE IF WE SHOULD LOOP BACK 
2721 013266 001363 BNE 2$ BRANCH BACK IF SO 
2722 013270 005077 167226 5$: CLR acsr CLEAR ¢SR TO DO AN INIT - WCR & BAR DON'T NEED MAINT MODE 
2723 013274 011177 167216 MOV (R1) ,aWCR 3MOVE THE DATA TO WCR 
2724 013300 017737 167212 002570 MOV aWCR,RWCR ;MOVE RECEIVED DATA TO RWCR 
2725 013306 021137 002570 CMP (R1) ,RWCR ;SEE IF EXPECTED DATA WAS RECEIVED 
2726 013312 pert BEQ S% BRANCH IF zs 
2727 013314 012737 013330 0013510 MOV #6$,SLPERR ;SET UP LOOP ON ERROR LOCATION 
2728 013322 011137 002602 MOV (R1) ,EWCR ;MOVE EXPECTED DATA TO EWCR 
2729 013326 000410 BR 7$ ;SKIP OVER LOOP ON ERROR SETUP 
2730 013350 011177 167162 6$: MOV (R1) ,aweR ;LOAD BIT PATTERN TO WCR 
2731 013334 017737 167156 002570 MOV @WCR ,.RWCR ;MOVE RECEIVED DATA TO RWCR 
sie 013342 021137 002570 CMP (R1) ,RWCR sSEE IF DATA IS OK NOW 
2733 013346 001401 BEQ 8$ ;BRANCH OUT IF SO - OK NOW 
734 Ete: 104204 7$: ERROR +204 ;WCR DATA PATTERN NOT CORRECT 
735 13328 032777 001000 165760 8$: BIT #B1T9,aSuR SEE IF WE SHOULD LOOP BACK 
i 013 001363 BNE 6$ sBRANCH BACK i so 
737 013362 pate 167132 9$: MOV (R1) ,@BAR s;MOVE THE DATA TO BAR 
738 013366 017737 167126 002566 MOV @BARRBAR ;MOVE RECEIVED DATA TO RBAR 
739 013374 011137 002600 MOV (R1) ,EBAR :MOVE EXPECTED DATA TO EBAR 
740 Ogee 042737 000001 002600 BIC #8110, EBAR ;D0 NOT EXPECT BIT 0 TO BE READ 
741 013406 023737 002600 002566 CMP EBAR,RBAR ;SEE IF EXPECTED DATA WAS RECEIVED 
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TEST #6 - BIT PATTERN TEST OF WCR, BDR AND BAR REGISTERS SEQ 0093 
rg 013414 1341 BEQ 13$ BRANCH IF SO 
743 013416 O27 7 013426 001310 MOV #10$,SLPERR ;SET_UP LOOP ON ERROR LOCATION 
744 013424 seh BR 11$ KIP OVER LOOP ~ Harte SETUP 
2745 013426 011177 167066 10$: MOV (R1) ,@BAR ;LOAD BIT PATTERN TO BA 
2746 013432 017737 Ao20Re 002566 MOV @BAR ,RBAR sMOVE RECEIVED DATA TO RBAR 
2747 013440 021137 002566 CMP (R1) ,RBAR ;SEE IF DATA IS OK NOW 
2748 013444 001401 BEQ 12$ ;BRANCH OUT IF SO = OK NOW 
2749 013446 104203 11$: ERROR +203 :BAR DATA PATTERN NOT CORRECT 
2750 013450 032777 001000 165662 12$: BIT #B1T9,aSwR sSEE if WE SHOULD LOOP BACK 
2751 013456 001363 BNE 10$ RANCH BACK IF SO 
$i26 013460 005721 13$ TST (R1)+ TO NEXT PATTERN 
2753 013462 005302 DEC R2 ;DECREMENT THE LOOP COUNTER AND 
2754 013464 001243 BNE 1$ ;BRANCH BACK IF NOT DONE 
2755 013466 004737 004036 JSR PC,CLENUP ;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
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CZDRLCO-DRi1 GEN NPR IwIFC 


TEST #7 = TEST CSR AND EIR BITO SEQ 0094 


2762 .SBTTL TEST #7 = TEST CSR AND EIR BITO 
PRRAAAAAAEAEAT AREA RATATAT AAARAAARARAAAARATARAATAARAARAAREEARAEEREE 
:eTEST 7 TEST CSR AND EIR BITO 
;* 
tt THIS TEST INSURES THAT BIT 0 OF THE CSR IS CLEAR WHEN IN CSR MODE (BIT 
tt 15 CLEAR), AND SET WHEN IN EIR MODE (BIT 15 SET). 
*® 
Seeeeeeeeeeeeeeeeedeeeeeeereeeeeeneneeeeenereeeeeeeeeeeeeeeeetere 
013472 032777 004000 165640 fst7: BIT #BIT11,aSwR :@& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
013500 001407 BEQ 1001$ :8& BRANCH IF NOT 
013502 104401 013510 TYPE 10008 @& TYPE: “T # 7" 
013506 000404 {001$ '8& GET OVER ASCII 
013510 12 040 043 1000S: ASC17 /T # 7/<CRLF>  :8@ THE ASCII MESSAGE 
013520 10018: 
013520 000004 SCOPE :PROCESS LOOPING AND TEST NUMBER INCREMENT 
013522 012737 013530 001310 MOV #999$,$LPERR | :SET LOOP ON ERROR TO 999 
2763 013530 032737 000001 002610 999%: BIT #B1T0,BORW ‘TEST TO SEE IF WE ARE TESTING A DR11-W 
764 013536 001444 BEQ TST10 ‘BRANCH TO NEXT TEST IF A DR11-B 
2765 013540 005077 166756 CLR acsR :FORCE ACCESS TO CSR 
2766 013544 012737 000001 002536 MOV #B1T0,BUT ‘MOVE BIT 0 INDICATOR TO BIT UNDER TEST LOCATION 
2767 013552 017737 166744 002560 MOV acSR,RCSR “MOVE CSR CONTENTS TO RCSR 
768 013560 032737 000001 002560 BIT #BITO,RCSR ‘CLEAR ALL BUT BIT 0 
2769 013566 001407 BEQ 1$ ‘BRANCH IF A ZERO 
2770 013570 013737 002560 002572 MOV RCSR,ECSR “MOVE CSR TO EXPECTED DATA, ECSR AND 
2771 013576 042737 000001 002572 BIC #B1T0,ECSR “CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR 
2772 013604 104014 ERROR +14 :CSR BIT TEST FAILED 
2773 013606 012777 100000 166706 1S: MOV #EIR,ACSR :G0 TO EIR MODE 
2774 013614 017737 166702 002562 MOV acSR.REIR “MOVE CSR CONTENTS TO RCSR 
2775 013622 032737 000001 002562 BIT #BITO,REIR :CLEAR ALL BUT BIT 0 
2776 013630 001007 BNE TST10 “BRANCH IF NOT A ZERO 
2777 013632 013737 002562 002574 MOV REIR,EEIR “MOVE CONTENTS TO ECSR ALSO AND 
2778 013640 052737 000001 002574 BIS #BITO,EEIR “SET THE 0 BIT - EXPECTED IT TO BE 1 
2779 013646 104015 ERROR +15 ‘EIR BIT TEST FAILED 
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2786 


032777 004000 


f 
g 
013650 
013656 
013660 013666 
013664 


013666 124 040 


013716 
000001 


166600 


010200 
010200 
000004 


120000 


11 
013737 002560 
737 004060 
120000 


020004 
166456 
120000 


002560 
120000 
004060 


00 005077 166416 
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T #10 = ATTN CAN BE SET VIA FNCT2 & ERROR BIT SETS 


165462 


043 


002560 
002572 


166536 
002560 


002572 
002572 
166462 
002560 
002560 


002572 
002572 


.SBTTL TEST #10 - ATTN CAN BE SET VIA FNCT2 & ERROR BIT SETS 


FERRARA AAAEAAA AEE AATAAAAAAAAAAAAAAAAAAAAAAARKAAAAHAAARAAAA ART 


SEQ 0095 


S*TEST 10 ATTN CAN BE SET VIA FNCT2 & ERROR BIT SETS 
;* THIS TEST INSURES THAT THE ATTN BIT (BIT 13) SETS VIA FNCT2 AND ERROR 
*® 
*® 
‘eeneeeeeeeeeneeeeeeeeeereteteneeeeeeererennreereerenerteeeeeeeeete 
TST10: BIT #B1T11,aSWR :@& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
BEQ 1001$ 88 BRANCH, IF NOT 
TYPE 10008 [88 TYPE: ‘'T ' 10" 
R 1001$ *@& GET OVER ASCII 
1000S: ASC1Z /T # 1O/<CRLF> :8& THE ASCII MESSAGE 
1001$: 
SCOPE : PROCESS at QOPING AND TEST NUMBER INCREMENT 
MOV #999$,$LPERR Set P ON ERROR TO 999$ 
BIT #B1T0,0DW TEST 70 SEE IF WE ARE TESTING A DR11-W 
BNE TST11 ‘BRANCH TO NEXT TEST IF A DR11-B 
999$: CLR acsr :FO ORCE ACCESS TO CSR 
MOV #MA,aCSR :M 
MOV aCSR,RCSR :ROVE "RECEIVED DATA TO RCSR 
CMP #MAFRYRCSR “SEE IF EXPECTED DATA WAS RECEIVED 
BEQ 1$ ‘BRANCH IF THEY ARE 
MOV #MA+RY,ECSR ‘MOVE EXPECTED DATA TO ECSR 
ERROR +16 “READY AND MAINTENANCE ARE NOT THE ONLY BITS SET IN CSR 
1$: MOVB #F2,aCSR :SET FNCT 
MOV acSR,RCSR ‘MOVE THE CONTENTS TO RCSR 
MOV RCSR._R1 ‘MOVE CONTENTS TO R1 FOR 
BIC #€B1513,R1 ‘CLEAR ALL BUT BITS ERROR & ATIN FOR TEST 
CMP #ER+AT,RI :TEST TO SEE IF ERROR AND ATIN ARE SET 
BEQ 2$ ‘BRANCH IF IT IS PROPERLY S 
MOV RCSR,ECSR [MOVE EXPECTED DATA TO ECSR 
JSR PC, CHKCAB "GO CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY 
BIS #ER+AT.ECSR :SET THE BITS THAT SHOULD HAVE BEEN SET 
ERROR +17 ‘ATTN AND ERROR FAILED TO SET PROPERLY 
2$: BIC #AT+F2,aCSR ‘CLEAR ATIN & FNCT2 
MOV @CSR,RCSR [MOVE CSR DATA TO RCSR 
BIT #ER+AT,RCSR “BIT TEST ATTN AND ERROR BITS TO SEE IF THEY ARE CLEAR 
BEQ 3$ ‘BRANCH IF ATTN IS CLEAR 
MOV RCSR,ECSR [MOVE EXPECTED DATA TO ECSR 
BIC #ER+AT.ECSR “CLEAR THE BITS THAT WERE SUPPOSED TO BE CLEAR 
JSR PC, CHKCAB °GO CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY 
ERROR +20 SATIN AND ERROR FAILED TO CLEAR PROPERLY 
3$: CLR acsR “RETURN TO CSR 
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‘TEST #11 = FNCT BIT 1 CONTROLS DSTAT BIT SEQ 0096 
2820 .SBTTL TEST #11 = FNCT BIT 1 CONTROLS DSTAT BIT 9 
FRRAAAAAAAEAAAARARATEAAAATAAAHERAAEAAAKAAAAKKAA ARE KAKA KeKKATeKHLe Te 
:eTEST 11 FNCT BIT 1 CONTROLS DSTAT BIT 9 
** 
te THIS TEST INSURES THAT FNCT BIT 1 CONTROLS DSTAT BIT 9. 
*® 
[eeeeeeeeeeeeeeeeeeeeeeeeeeeteeeeneeeenerenteeereneeerereeeeeeres 
014104 032777 004000 165226 TST11: BIT #BIT11,aSWR :@& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
014112 001407 BEQ 1001$ 88 BRANCH IF N 
014114 104401 014122 TYPE 10008 78 TYPE: "'T # 7 
014120 000404 BR 001$ *@& GET OVER ASCII 
014122 124 040 043 10008: -ASC1Z /1 # VI/<CRLE> :88 THE ASCII MESSAGE 
EV 
014132 10018: 
014132 000004 SCOPE :PROCESS LOOPING AND TEST NUMBER INCREMENT 
014134 012737 014142 001310 MOV #999$,$LPERR | :SET LOOP ON ERROR TO 999$ 
2821 014142 005077 166354 999$: CLR acsR ‘CLR FUNCT BITS AND FORCE ACCESS TO CSR 
2822 014146 012777 010000 166346 MOV #MA,aCSR ‘MAINT MODE 
2823 014154 017737 166342 002560 MOV aCSR,RCSR [MOVE CONTENTS OF CSR TO RCSR 
2824 014162 013737 002560 002572 MOV RCSR,ECSR ‘MOVE EXPECTED TO ECSR 
2825 014170 013701 002572 MOV ECSR.R1 “MOVE CONTENTS TO R1 FOR TESTING 
2826 014174 042701 177761 BIC #CFNC,R1 “CLEAR ALL BUT THE FNCT BITS 
2827 014200 001404 BEQ 1$ ‘BRANCH IF THE FUNCTION BITS ARE CLEAR 
2828 014202 042737 000016 002572 BIC #FNC,ECSR “CLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR 
2829 014210 104024 ERROR +24 ;FUNCTION BIT(S) ARE NOT CLEAR 
2830 014212 052777 000002 166302 1$: BIS #F1,aCSR FNCT1 
2831 014220 017737 166276 002560 MOV aCSR,RCSR “MOVE CONTENTS OF CSR TO RCSR 
2832 014226 013737 002560 002572 MOV RCSR,ECSR [MOVE EXPECTED DATA TO ECSR 
2833 014234 013701 002572 MOV ECSR.R1 ‘MOVE CONTENTS TO R1 FOR TEST 
2834 014240 042701 170777 BIC #CDST,R1 ‘CLEAR ALL BUT BITS 9, 10 @ 11 
2835 014244 022701 001000 CMP #DSC,R1 ‘SEE IF DSTAT A AND B ARE CLEAR ‘ C IS SET 
2836 014250 001407 BEQ TST12 ‘BRANCH TO NEXT TEST IF ALL CLEAR 
2637 014252 042737 006000 002572 BIC #DAB,ECSR :CLEAR THE DSTAT A & B BITS THAT SHOULD HAVE BEEN CLEAR 
2838 014260 052737 001000 002572 #DSC.ECSR SET THE DSTAT C BIT THAT SHOULD HAVE BEEN SET 


BIS 
2839 014266 104025 ERROR +25 ;DSTAT A, B OR C ARE NOT AS EXPECTED 
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TEST #12 = FNCT BIT 2 CONTROLS DSTAT BIT 1 


2845 


2864 014452 


032777 


104025 


004000 
014306 
040 


014326 


177761 
000016 
000004 


002000 


005000 
002000 
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165042 


043 


001310 


166162 
002560 
002572 


002572 


166116 
002560 
002572 


-SBTTL TEST #12 = FNCT BIT 2 CONTROLS DSTAT BIT 10 


FRRAARAAAAAAEAAAETATAAE AAA ETA TEAAAEAAAARARAARAAKKAAKKARA HAKATA TTT 


seTEST 12 FNCT BIT 2 CONTROLS DSTAT BIT 10 
se 
te THIS TEST INSURES THAT FNCT BIT 2 CONTROLS DSTAT BIT 10. 
** 
Seeeeeeeeeeeeeeeeeeeeeeeeeeeeteeeeneeeeeeeeeeetenteneeeeneeeeereees 
TST12: BIT #BIT11,aSWR :@& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
BEQ 1001$ :@& BRANCH IF NOT 
TYPE 10008 ‘8 TYPE: "T # 12" 
{001$ *@& GET OVER ASCII 
1000S: ASC17 /T # 12/<CRLF> :8& THE ASCII MESSAGE 
V 
1001$: 
SCOPE sPROCESS LOOPING AND TEST NUMBER INCREMENT 
MOV #999$,SLPERR | :SET LOOP ON ERROR TO 999$ 
999$: CLR acsR "LR FUNCT BITS AND FORCE ACCESS TO CSR 
MOV #MA,aCSR “MAINT MODE 
MOV aCSR,RCSR ‘MOVE CONTENTS OF CSR TO RCSR 
MOV RCSR.ECSR ‘MOVE EXPECTED TO ECSR 
MOV ECSR.R1 ‘MOVE CONTENTS TO R1 FOR TESTING 
BIC #CFNC,R1 “CLEAR ALL BUT THE FNCT BITS 
BEQ 1$ ‘BRANCH IF THE FUNCTION BITS ARE CLEAR 
BIC #FNC,ECSR “CLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR 
ERROR +24 ‘FUNCTION BIT(S) ARE NOT CLEAR 
1$: BIS #F2,aCSR “SET FNCT2 
MOV aCSR,RCSR ‘MOVE CONTENTS OF CSR TO RCSR 
MOV RCSR,ECSR “MOVE EXPECTED DATA TO ECSR 
MOV ECSR.RI1 ‘MOVE CONTENTS TO R1 Ook TEST 
BIC #CDST,RI ‘CLEAR ALL BUT THE DSTAT BITS 
CMP #0SB,R1 ‘IF DSTAT A AND C ARE CLEAR & B IS SET 
BEQ TST18 ‘BRANCH TO NEXT TEST IF AS EXPECTED 
BIC #DAC,ECSR “CLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR 
BIS #DSB.ECSR ‘SET THE BIT THAT SHOULD HAVE BEEN SET 
ERROR +25 “DSTAT A, B OR C ARE NOT AS EXPECTED 


SEQ 0097 


¢ CZDRLCO-DRi1 


GEN NPR_INTFC MACRO M1 


‘TEST #13 - FNCT BIT 3 CONTROLS DSTAT BIT 1 


2870 
014454 032777 004000 164656 
014462 001407 
014464 104401 014472 
014470 000404 
014472 124 040 043 
014502 
014502 000004 
014504 012737 014512 001310 
2871 014512 005077 166004 
2872 014516 012777 010000 165776 
2873 014524 017737 165772 002560 
2874 014532 013737 002560 002572 
2875 014540 013701 002572 
2876 014544 042701 177761 
2877 014550 001404 
2878 014552 042737 000016 002572 
2879 014560 104024 
2880 014562 052777 000010 165732 
2881 014570 017737 165726 002560 
2882 014576 013737 002560 002572 
2883 014604 013701 002572 
2884 014610 042701 170777 
2885 014614 022701 004000 
2886 014 001407 
2887 014622 042737 003000 002572 
2888 014630 052737 004000 002572 
2889 014636 104025 
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-SBTTL TEST #13 = FNCT BIT 3 CONTROLS DSTAT BIT 11 


FARRAH AHAAAAEAAAAAAEAAATE KAKA Hee teeKeAKeKeeeeeeKareReettHeeeeeeeee 


TEST 13 FNCT BIT 3 CONTROLS DSTAT BIT 11 
z8 
3t THIS TEST INSURES THAT FNCT BIT 3 CONTROLS DSTAT BIT 11. 
Leeeeeeeeeeeeeneeeeeeeeeteneeteeeeneeeeeeeereteneenererereeeeerenes 
TST13: BIT #B1T11,aSwWR :8& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
BEQ 1001$ *@& BRANCH IF NO 
TYPE 1000$ 708 TYPE: ‘'T # 13°' 
R 001$ 388 GET OVER ASCII 
1000$: shh /T # 13/<CRLF> :8& THE ASCII MESSAGE 
V 
1001$: 
SCOPE PROCESS yg . TEST NUMBER INCREMENT 
MOV #999 ,SLPERR :SET LOOP ON ERROR TO $99$ 
999$: CLR acsrR ;CLR FUNCT BITS OND FORCE ACCESS TO CSR 
MOV #MA,aCSR MAI T MODE 
MOV acSR,RCSR sMOVE CONTENTS OF CSR TO RCSR 
MOV RCSR,ECSR sMOVE EXPECTED TO ECSR 
MOV ECSR,R1 sMOVE CONTENTS TO R1 FOR TESTING 
BIC #CFNC,R1 ;CLEAR ALL BUT THE FNCT BITS 
BEQ 1$ s;BRANCH IF THE FUNCTION BITS ARE CLEAR 
Bic #FNC,ECSR :CLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR 
ERROR +24 ;FUNCTION BIT(S) ARE NOT CLEAR 
1$: BIS #F3,aCSR : FNCT3 
MOV aCSR,RCSR ‘MOVE CONTENTS OF 7. TO RCSR 
MOV RCSR,ECSR sMOVE EXPECTED DATA TO ECSR 
MOV ECSR,R1 ‘MOVE CONTENTS TO R1 FOR TEST 
BIC #COST,R1 ;CLEAR ALL BUT DSTAT BITS 
CMP #DSA,R1 [SEE IF DSTAT B AND C ARE te ® AIS SET 
BEQ TST14 sBRANCH TO NEXT TEST IF DATA OK 
BIC #0BC,ECSR : CLEAR THE BITS THAT SHOULD HAVE BEEN CLEAR 
BIS #DSA,ECSR SET THE BIT THAT SHOULD HAVE BEEN SET 
ERROR +25 “DSTAT A, B OR C ARE NOT AS EXPECTED 


SEQ 0098 
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TEST #14 = EIR BLOCKS DATA XFERS FROM ODR TO | SEQ 0099 


| 2897 .SBTTL TEST #14 = EIR BLOCKS DATA XFERS FROM ODR TO IDR 
WUTTTITITTTITITITITITIIII ETT ITIL TL TTT te 
:TEST 14 EIR BLOCKS DATA XFERS FROM ODR TO IDR 
ie THIS TEST INSURES THAT GOING TO EIR MODE BLOCKS DATA TRANSFERS FROM 
3 ODR TO IDR (ODR RECEIVES DATA WHEN WRITING TO THE BDR, AND WHEN READING 
te THE BDR, THE IDR IS READ). 
*® 
Seeeeeeneeeeeneeeeeeeeerereeeeeeeeereneeeerereteeeetarterereereteee 
014640 032777 004000 164472 TsT14: BIT #B1T11,aSWR :@& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
014646 001407 BEQ 1001$ :@& BRANCH IF NOT 
014650 104401 014656 TYPE  ,10008 88 TYPE: “T " 14°" 
014654 000404 R i0 '@& GET OVER ASCII 
014656 124 040 043 1000S: ASC17 /T # VG/<CRLF> 288 THE ASCII MAE SSAGE 
014666 1001$: 
014666 000004 SCOPE :PROCESS LOOPING AND TEST NUMBER INCREMENT 
014670 012737 014706 001310 MOV #999$,$LPERR | :SET LOOP ON ERROR TO 999$ 
2898 014676 032737 000001 002610 BIT #81T0.BORW “TEST TO SEE IF WE ARE TESTING A DR11-w 
2899 014704 001451 BEQ S115 “BRANCH TO NEXT TEST IF A DR11-B 
2900 014706 005077 165610 999$: CLR SFORCE ACCESS TO CSR 
2901 014712 012777 010000 165602 MOV :SET MAINT MODE (SO THAT 1DR GETS ODR CONTENTS) 
2902 014720 012777 052525 165576 MOV 150595. Seon ‘SET ALT O'S AND 1'S TO BDR 
2903 014726 017737 165572 002564 MOV @BDR,RBDR :MOVE RECEIVED DATA TO RBDR 
2904 014734 022737 052525 002564 CMP #52525, RBDR SEE IF DATA WAS LOADED PROPERLY 
2905 014742 001404 BEQ 1 “BRANCH IF IT WAS 
906 014744 012737 052525 002576 MOV #52525, EBDR ‘MOVE EXPECTED DATA TO EBDR 
2907 014752 104031 ERROR +31 :BDR PATTERN NOT CORRECT 
2908 014754 052777 100000 165540 18: BIS #EIR,ACSR 'GO TO EIR 
2909 014762 012737 052525 002576 MOV #52525, EBDR MOVE EXPECTED DATA TO EBDR 
2910 014770 012777 125252 165526 MOV #125252,aBDR | :SET ALT 1°S AND O'S TO BOR 
2911 014776 017737 165522 002564 MOV @BDR,RBDR [MOVE RECEIVED DATA 10 RBDR 
2912 015004 022737 052525 002564 CMP #52505, RBDR ‘TEST FOR OLD PATTERN 
2913 015012 001404 BEQ $ ‘BRANCH IF ORIGINAL PATTERN STILL THERE 
2914 015014 012737 052525 002576 MOV #52525,EBDR “MOVE EXPECTED DATA TO EBDR 
2915 015022 104030 ERROR +30 :BDR SHOULD NOT HAVE BEEN LOADED WITH NEW PATTERN 
2916 015024 004737 004036 23: JSR PC,CLENUP : SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 


-——--— aS Se . 
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TEST #15 = DR11 INTERRUPTS WITH CPU AT LEVEL 


SEQ 0100 
| 2923 .SBTTL TEST #15 = DR11 INTERRUPTS WITH CPU AT LEVEL 3 
PRRAAAAHAAARAATARAATARAKETAAAAAT AAA eee Ke KeAtAKtrAKeteeeeKeetAeetAAet 
SeTEST 15 DR11 INTERRUPTS WITH CPU AT LEVEL 3 
tt 
;* THIS TEST INSURES THAT THE DR11 WILL INTERRUPT WITH THE CPU PRIORITY 
;* AT LEVEL 3. 
*® 
jeeeaeenceecenaccceeceeterceceeatestansacanessesseeseceseeseescesss 
015030 032777 004000 164302 TST15: BIT #BIT11,aSwR :@& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
015036 001407 BEQ 001$ :@& BRANCH IF NOT 
015040 104401 015046 TYPE 1000$ 788 TYPE: "'T # 15° 
015044 000404 BR {001$ 788 GET OVER ASCII 
015046 124 040 043 1000S: +ASCIZ /T # 1S/<CRLF> 388 THE ASCII MESSAGE 
015056 1001$: 
015056 000004 SCOPE ;PROCESS LOOPING AND TEST NUMBER INCREMENT 
015060 012737 015066 001310 MOV #999$,$LPERR | :SET LOOP ON ERROR TO 999$ 
2924 015066 012777 010000 165426 999%: MOV #MA,aCSR :SET MAINTENANCE BIT AND 
2925 015074 005077 165422 CLR acsr :CLEAR CSR TO DO AN INIT 
2926 015100 012737 000140 177776 MOV #LEVEL3,PSW ‘STATUS AT LEVEL 3 
927 015106 017737 165410 002560 MOV acSR,RCSR ‘MOVE CSR CONTENTS TO RCSR 
2928 015114 105737 002560 TSTB. = RCSR *SEE IF READY BIT (Bit 7) IS SET 
2929 015120 100406 BMI! 1$ ‘BRANCH IF IT I 
2930 015122 01<737 000200 002572 MOV #RY,ECSR >SET THE BIT THAT SHOULD HAVE BEEN SET 
2931 015130 004737 004060 JSR PC, CHKCAB :G0 CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY 
2932 015134 104022 ERROR +2 ‘READY OF CSR WAS NOT SET 
2933 015136 017737 165364 002532 1$: MOV @DRINV,SDRINV :SAVE LOCATION. T0 BE USED AS THE INTERRUPT VECTOR 
2934 015144 017737 165360 002534 MOV @DRVS, SDRVS ‘SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
2935 015152 012777 015242 165346 MOV 438, aDRINV ‘SET UP INTERRUPT VECTOR 
2936 015160 012777 010000 165334 MOV acsk :MAINT MODE 
2937 015166 012737 001000 602660 MOV r10 060 IME :SET THE TIME COUNTER 
2938 015174 052777 000105 165320 BIS F1esF 5300, aCSR :I€, FNCT2 AND GO 
2939 015202 005337 002660 2$: DEC TIME :DECREMENT DOWN TO ZERO 
2940 015206 001375 BNE 2$ ‘BRANCH IF NOT THERE YET 
2941 015210 017737 165306 002560 MOV aCSR,RCSR :MOVE RECEIVED DATA TO RCSR 
2942 015216 013777 002532 165302 MOV SDRINV,@DRINV ;:RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
2943 015224 013777 002534 165276 MOV SDRVS ,@DRVS sRESTORE LOCATION USED AS THE INTERRUPT PS 
2944 015232 104035 ERROR +35 [DR11 FAILED TO INTERR 
2945 015234 005077 165262 CLR acsr :CLEAR THE CSR TO DO my INIT 
2946 015240 000410 BR TST16 ‘BRANCH TO THE NEXT TEST 
2947 015242 062706 000004 3$: ADD #4,SP *CLEAN THE STACK AFTER THE INTERRUPT 
2948 015246 013777 002532 165252 MOV SDRINV,@DRINV ;RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
2945 015254 013777 002534 165246 MOV SDRVS,aDRVS ‘RESTORE LOCATION USED AS THE INTERRUPT PS 
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TEST #16 = DR11 FAILS TO INTERRUPT WITH CPU AT LEVEL 7 SEQ 0101 
2956 \SBTTL TEST #16 = DR11 FAILS TO INTERRUPT WITH CPU AT LEVEL 7 
FRRRAARAAREAAAAAAAAA ATER AAR AAT E HATE AAAAAAAA HATA AAATA AAA KLE AAA TE 
is TEST 16 DR11 FAILS TO INTERRUPT WITH CPU AT LEVEL 7 
‘e THIS TEST INSURES THAT THE DR11 FAILS TO INTERRUPT WITH THE CPU PRIORITY 
i* AT LEVEL 7. 
** 
jeeerencenceeneencereetcerrereerataeggerneseateereereesecseceeesess 
015262 032777 004000 164050 TsT16: BIT #B1T11,aSWR :@& TEST TO SEE LF TEST NUMBER TRACER ENABLED 
015270 001407 BEQ 1001$ :@& BRANCH IF N 
015272 104401 015300 TYPE 1000$ 88 TY {PE "Tf 
015276 000404 BR {001$ :8& GET OVER stil 
015300 124 040 043 1000S: -ASCIZ /T # 16/<CRLF> :8& THE ASCII MESSAGE 
015310 1001$: 
015310 000004 SCOPE sPROCESS LOOPING AND TEST NUMBER INCREMENT 
015312 012737 015320 001310 MOV #999$,$LPERR | :SET LOOP ON ERROR TO 999$ 
957 015320 004737 004036 999$: JSR PC, CLENUP 3 SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI 107 
2958 015324 017737 165172 002560 MOV acSR,RCSR ‘MOVE CSR DATA TO RCSR 
2959 015332 105737 002560 TSTB —sRCSR ‘CLEAR ALL BUT THE READY BIT (BIT 7) 
2960 015336 100411 BMI 1$ ‘BRANCH IF IT IS SET 
2961 015340 012737 000200 002572 MOV #RY,ECSR “MOVE EXPECTED DATA TO ECSR 
2962 015346 004737 004060 JSR PC,CHKCAB :GO CHECK CABLE STATUS AND ALTER EXPECTED IF NECESSARY 
2963 015352 052737 000200 002572 BIS #RY,ECSR “SET THE BIT THAT SHOULD HAVE BEEN SET 
2964 015360 104022 ERROR +22 SREADY OF CSR WAS NOT SET 
2965 015362 017737 165140 002532 1$: MOV QDRINV,SDORINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
2966 015370 017737 165134 002534 MOV @DRVS,SDRVS > SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
2967 015376 012777 015464 165122 MOV #3$,a0RINV ‘SET UP INT VECTOR 
5404 012777 000340 165116 MOV #LEVEL7, aDRVS 
2969 015412 012737 001000 002660 MOV #1000, TIME sSET TIME DELAY COUNTER 
2970 015420 012777 010000 165074 MOV #MA,acSR [MAINT MODE 
2971 015426 052777 000105 165066 BIS #IE+F2+GO,aCSR :1E, FNCT2 AND GO 
2972 015434 005337 002660 2$: DEC TIME ‘DECREMENT UNTIL WE GET TO ZERO 
2973 015440 001375 BNE 2$ ‘BRANCH BACK IF NOT ZERO YET 
2974 015442 005077 165054 CLR acsR ‘CLEAR THE CSR TO DO AN INIT 
2975 015446 013777 002532 165052 MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
2976 015454 013777 002534 165046 MOV SDRVS ,aDRVS SRESTORE LOCATION USED aS THE INTERRUPT PS 
2977 015462 000416 BR TST17 ‘BRANCH TO THE NEXT TEST 
2978 015464 062706 000004 3$: ADD #4,SP *RESTORE STACK 
2979 015470 017737 165026 002560 MOV acSR,RCSR ‘MOVE RECEIVED DATA TO RCSR 
2980 015476 005077 165020 CLR acsr ‘CLEAR IE 
2981 015502 013777 002532 165016 MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
2982 015510 013777 002534 165012 MOV SDRVS,aDRVS SRESTORE LOCATION USED AS THE INTERRUPT PS 
2983 015516 104036 ERROR +36 :DR11 INTERRUPTED, BUT IT SHOULDN'T HAVE 
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i EST #17 = DR11 INTERRUPTS AT CORRECT BR LEVEL SEQ 0102 
| 2990 .SBTTL TEST #17 = DR11 INTERRUPTS AT CORRECT BR LEVEL 
FRRAARAA AEA A AAA AATAAATAAAAAAAAAAAAAA AAA AKAAKKAAKKAAAAAKA KAKA TAT TS 
SeTEST 17 DR11 INTERRUPTS AT CORRECT BR LEVEL 
it 
:* THIS TEST INSURES THAT THE DR11 WILL INTERRUPT AT THE CORRECT LEVEL AS 
3 DEFINED IN THE DEVICE DESCRIPTOR WORD. 
** 
Peer erTT er rer rrrrrrrrrTrTrTTrTTTTTTTTITITITITITITILILI LLL LLL il 
015520 032777 004000 163612 {TST17: BIT #BIT11,aSUR :@& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
015526 001407 BEQ 1001$ :6& BRANCH dN 
015530 104401 015536 TYPE 10008 “88 TYPE: ''T # Oe 
015534 000404 BR {001$ [8& GET OVER ASCII 
015536 124 040 043 10008: “ASCII /T # 17/<CRLF> :8@ THE ASCII MESSAGE 
015546 1001$: 
015546 000004 SCOPE PROCESS LOOPING | AND TEST NUMBER INCREMENT 
015550 012737 015632 001310 MOV #999$,SLPERR | :SET LOOP ON ERROR TO 999$ 
1 015556 004737 004036 JSR PC, CLENUP ‘SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO7 
43) 015562 013737 002720 001362 MOV DDW, $TMP1 “MOVE DEVICE DESCRIPTOR WORD TO $T™M 
2993 015570 006237 001362 ASR STMP1 ‘SHIFT THE LEVEL TO THE RIGHT 5 PACES 
2994 015574 006237 001362 ASR STMP1 
2995 015600 006237 001362 ASR STMP1 
2996 015604 006237 001362 ASR $TMP1 
2997 015610 006237 001362 ASR $TMP1 
2998 015614 042737 177770 001362 BIC #177770, $TMP1 :CLEAR ALL BUT THE PRIORITY 
2999 015622 012700 000003 1$: MOV #3,R0 0 3 PRIORITY LEVELS 
3000 015626 012701 005264 MOV #LEVELS,R1 ‘Pove ADDRESS OF CPU PRIORITIES TO R1 
3001 015632 012777 010000 164662 999%: MOV #MA,aCSR ‘SET THE MAINTENANCE BIT AND 
3002 015640 005077 164656 CLR acser ‘CLEAR TO DO AN IN Te 
3003 015644 011137 177776 MOV (R1),PSW [PUT PRIORITY INTO P 
3004 015650 017737 164646 002560 MOV @CSR,.RCSR :MOVE RECEIVED DATA, io RCSR 
3005 015656 012737 000200 002572 MOV #RY,ECSR *MOVE READY BIT TO ECSR 
5006 015664 004737 004060 JSR PC, CHKCAB :GO CHECK CABLE 0 Ete AND ALTER EXPECTED IF NECESSARY 
3007 015670 023737 002560 002572 CMP RCSR,ECSR 'SEE IF RECEIVED DATA MATCHES EXPECTED 
3008 015676 001412 BEG 2$ ‘BRANCH IF OK 
3009 015700 012737 015622 001310 MOV #1$,$LPERR ‘SET UP FOR POSSIBLE hoor ON ERROR FOR THIS ERROR ONLY 
3010 015706 012737 000200 002572 MOV #RY.ECSR {MOVE EXPECTED DATA TO ECSR 
3011 015714 104022 ERROR +22 ‘READY OF CSR WAS NOT SET 
3012 015716 012737 015632 001310 MOV #999$.$LPERR | :RETURN ORIGINAL LOOP ON ERROR ADDRESS - DID NOT LOOP 
3013 015724 017737 164576 002532 2%: MOV @DRINV,SDRINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
3014 015732 017737 164572 002534 MOV @DRVS, SORVS *SAVE LOCATION 10 BE USED AS THE INTERRUPT PS 
3015 015740 012777 016052 164560 MOV #4$,aDRINV ‘SET UP INTERRUPT VECTO 
3016 015746 012777 000340 164554 MOV #LEVEL7, aDRVS :SET UP INTERRUPT P 
3017 015754 012777 010000 164540 MOV #MA,acsR MAINT MODE 
3018 015762 012737 000400 002660 MOV #400, TIME ‘SET DELAY COUNTER 
3019 015770 052777 000105 164524 BIS #IE+F2+G0,aCSR ;1E, FNCT2 AND GO 
3020 015776 005337 002660 38: DEC TIME SDECREMENT UNTIL WE GET TO ZERO 
3021 016002 001375 BNE 3$ ‘BRANCH BACK IF NOT ZERO YET 
22 016004 005077 164512 CLR acsr SCLEAR CSR TO DO AN INIT 
3023 016010 013777 002532 164510 MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
3024 016016 013777 002534 164504 MOV SDRVS ,@DRVS RESTORE LOCATION USED AS THE INTERRUPT PS 
3025 016024 013737 177776 002540 MOV Psi LEVEL “SAVE OLD STATUS LEVEL 
26 016032 005721 TST R15+ SINCR ERENT Ri TO POINT TO NEXT PRIORITY LEVEL 
3087 016034 005300 DEC RO SDECREMENT LOOP COUNTER AND 
28 016036 001275 BNE 999$ ‘BRANCH BACK FOR ANOTHER TRY IF NOT DONE 
3029 016040 104055 ERROR +53 [DR11 FAILED TO INTERR 
016042 013737 002552 002540 MOV DRLEV, LEVEL 'SET LEVEL TO CONTAIN VRE ANTICIPATED LEVEL 
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TEST #17 = DR11 INTERRUPTS AT CORRECT BR LEVEL SEQ 0103 
3031 016050 000422 BR T$T20 ;BRANCH TO THE NEXT TEST 
3032 016052 062706 000004 4$: ADD #4,SP thy STACK 
3033 016056 005077 164440 CLR acsr CLEAR IE 
01 013777 002532 164436 MOV SORINV,@DRINV RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
3035 016070 013777 002534 164432 MOV SORVS ,aDRVS RESTORE LOCATION USED AS THE INTERRUPT PS 
01 042737 177437 002540 BIC #177487, LEVEL : CLEAR ALL BITS BUT THE BR LEVEL 
3037 016104 023737 002540 002552 CMP LEVEL ,DRLEV ;SEE IF LEVEL INTERRUPTED MATCHES EXPECTED 
038 916112 001401 BEQ T$120 ;BRANCH AROUND ERROR CALL IF IT IS AS EXPECTED 


3039 016114 104052 ERROR +52 ;DR11 INTERRUPTED AT WRONG LEVEL 
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T #20 - A GO WITHOUT CLEARING ERROR CAUSES INTRPT 
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SEQ 0104 


;eTEST 20 A GO WITHOUT CLEARING ERROR CAUSES INTRPT 
te THIS TEST INSURES THAT SETTING THE GO BIT WITHOUT CLEARING THE ERROR 
3 BIT CAUSES AN INTERRUP 
;* 
SRAARARAAAAAAAAARATAAAAAAAAAAAAAAAAEAAAAAAAAAAATAAAAAAAAAHTAAAAAEES 
TST20: BIT #B1T11,aSWR :@& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
BEQ 1001$ :88 BRANCH IF 
TYPE 10008 :8& TYPE: ''T o" 
R {001$ [88 GET OVER ASCII 
1000$: ASCI7 /T # 20/<CRLF> ;8& THE ASCII MESSAGE 
1001$: 
SCOPE PROCESS -LOOPING AND TEST NUMBER INCREMENT 
MOV #999$,S$LPERR | :SET LOOP ON ERROR TO 999$ 
999$: JSR PC, CLENUP SUBROUTINE TO CCEAR "DEVICE REGISTERS @ SET CPU PRI 107 
MOV @DRINV,SDRINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
MOV QDRVS, SDRVS ‘SAVE LOCATION TO BE USED aS THE INTERRUPT PS 
MOV #2$,,aDRINV ‘INTERRUPT VECTOR TO 3$ 
MOV LEVELS, @DRVS INTERRUPT STATUS TO LEVEL 3 
CLR iL LET THE DR11 INTERRUPT 
MOV #1000, TIME ‘MOVE DELAY COUNTER TO LOCATION 
MOV #MA+1E+GO,aCSR eer MAINT, IE AND GO 
BIS #AT+F2,aCSR :SET_ATIN AND FNCT2 
1$: DEC TIME :DECREMENT UNTIL WE REACH ZERO 
BNE 1$ CH IF NOT ZERO YET 
MOV SDRINV,@DRINV RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
MOV SDRVS ,aDRVS SRESTORE LOCATION USED AS THE INTERRUPT PS 
MOV @CSR,RCSR :MOVE RECEIVED DATA TO RCSR 
ERROR +35 :DR11 FAILED TO INTERRUPT 
CLR acsr “CLEAR THE CSR TO DO AN INIT 
BR TS121 *BRANCH TO THE NEXT TEST 
2$: ADD #4 ,SP *READJUST STACK AFTER THE INTERRUPT 
MOV SDRINV,@DRINV RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
MOV SDRVS ,aDRVS SRESTORE LOCATION USED AS THE INTERRUPT PS 
MOV acSR,RCS :MOVE RECEIVED DATA TO RCSR 
BMI $ ‘BRANCH IF ERROR IS SET 
MOV RCSR,ECSR :MOVE EXPECTED DATA TO ECSR 
BIS #ER,ECSR :SET THE BIT THAT SHOULD HAVE BEEN SET 
ERROR +37 ERROR BIT SHOULD NOT BE CLEAR 
3$: MOV @DRINV,SDRINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
MOV @DRVS,SDRVS *SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
MOV #5$,a0R1 S INTERRUPT VECTOR TO 6$ 
CLR aBAR iPREVENT CAUSING ANOTHER ERROR 
MOV #-1,awcRr “SET-UP W 
MOV #1060, TIME :LOAD, i000" IN LOCATION TIME FOR WAIT LOOP 
BIS #G0,acsR SET 
4$: INC TIME se laves - watt FOR INTERRUPT 
BNE 4$ SBRANCH BACK IF NOT ZERO 
MOV SDRINV,@DRINV RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
MOV SDRVS ,@DRVS RESTORE LOCATION USED AS THE INTERRUPT PS 
MOV acsR,RCSR [MOVE RECEIVED DATA T 0 RCSR 
ERROR +35 :DR11 FAILED TO IN TERRUPT 
CLR acsr “CLEAR CSR TO DO AN INIT 
BR TS121 “BRANCH TO THE NEXT TEST 
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czonco-ons 1 GEN NPR INT MACRO M1113. 27-OCT-80 15:53 PAGE 100-1 
#20 - A GO WITHOUT CLEARING ERROR CAUSES INTRPT SEQ 0105 


3087 016454 2706 900004 5$: ADD #4,SP sCLEAN UP STACK AFTER INTERRUPT 

3088 016460 013777 002532 164040 MOV SDRINV,@DRINV ;RESTORE LOCATION USED AS THE INTERRUPT VECTOR 

3089 016466 013777 002534 164034 MOV SDRVS ,@DRVS “RESTORE LOCATION USED AS THE INTERRUPT PS 
016474 017737 164022 002560 MOV acsk RCSR ‘MOVE RECEIVED DATA TO RCSR = IS ERROR CLEAR 

3091 016502 100007 BPL TST24 ‘BRANCH TO NEXT TEST IF IT IS 

3092 016504 013737 002560 002572 MOV RCSR,ECSR ‘MOVE EXPECTED DATA TO ECSR 

3093 016512 0427 37 100000 002572 BIC aR. ECSR [CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR 

3094 016520 104021 ERROR TERROR BIT SHOULD HAVE BEEN CLEAR 
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TEST #21 = FUNCTION BITS INC WITH MAINT MODE TRANSFERS SEQ 0106 


3101 .SBTTL TEST #21 = FUNCTION BITS INC WITH MAINT MODE TRANSFERS 
SRA AAAAAAAARAAHARAAAAAAEAAA AAA A AAA AAAAAAAAAAAAAAAAAAAAAAAATAAA ATES 
TEST 21 FUNCTION BITS INC WITH MAINT MODE TRANSFERS 
fe THIS TEST INSURES THAT THE FUNCTION BITS INCREMENT WITH MAINTENANCE 
3* MODE TRANSFERS. 
;* 
: RARER AAAAAAAAAEAAAAAEAAAAAARAAAAAAAAAAARAEARAAARARAETAARAARAAAAREE 
016522 032777 004000 162610 TsT21: BIT #BIT11,aSWR :@@ TEST TO SEE IF TEST NUMBER TRACER ENABLED 
016530 001407 BEQ 10018 :6& BRANCH IF NOT 
016532 104401 016540 TYPE 1000$ 8& TY PE: of 
016536 000404 R {001$ '8& GET OVER ASCII 
016540 1 040 043 10008: ASC17 /T # 21/<CRLF> :@& THE ASCII MESSAGE 
016550 1001$: 
016550 000004 SCOPE sPROCESS LOOPING AND TEST NUMBER INCREMENT 
016552 012737 016574 001310 MOV #999$,$LPERR | :SET LOOP ON ERROR TO 999S 
3102 016560 012737 000016 001364 MOV #16,$TMP2 :SET UP FUNCTION Count COMPARE 
3103 016566 012737 177771 001360 MOV #-7.$TMPO ‘SET UP WCR LOAD VARIABLE 
3104 016574 737 036 999$: JSR PC, CLENUP SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
3105 016600 013777 002616 163712 MOV INBUF , @BAR ‘SET-UP BAR 
3106 016606 017737 163714 002532 1$: MOV Q@DRINV, SORINV sSAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
3107 016614 017737 163710 002534 MOV @DRVS, SORVS ‘SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
3108 016622 012777 016732 163676 MOV #3$, aDRINV S INTERRUPT VECTOR 
3109 016630 013777 002540 163672 MOV LEVEL, a@DRVS ; INTERRUPT VECTOR PRIORITY TO LEVEL OF DEVICE 
3110 016636 013777 001360 163652 MOV STMPO,awWCR “SET UP FOR NUMBER OF TRANSFERS IN STMPO 
3111 016644 005037 177776 CLR aa sLET THE DR11 INTERRUPT 
3118 016650 012777 010000 163644 MOV cs NT MODE 
3113 016656 012737 001000 002660 MOV robot TIME ‘MOVE WAIT COUNTER TO LOCATION TIME 
3114 01 052777 000501 163630 BIS #IE*CY+60, CSR SIE, CYCLE & GO 
3115 016672 005337 002660 2$: DEC TIME :DECREMENT UNTIL ZERO 
3116 016676 001375 BNE ‘BRANCH BACK IF NOT 
3117 016700 017737 163616 002560 MOV @CSRLRCSR [MOVE RECEIVED DATA TO RCSR 
3118 016706 013777 002532 163612 MOV SDRINV, @DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
3119 016714 013777 002534 163606 MOV SDRVS,@DRVS SRESTORE LOCATION USED aS THE INTERRUPT PS 
3120 016722 104035 ERROR +35 [DR11 FAILED TO INTERRUPT 
3121 016724 005077 163572 CLR acsr “CLEAR THE CSR TO DO AN INIT 
3122 016730 42 BR TST22 ;BRANCH TO NEXT TEST 
3123 016732 062706 000004 3$: ADD #4,SP LEAN UP STACK AFTER INTERRUPT 
3124 016736 013777 002532 63562 MOV SDRINV,@DRINV RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
3125 016744 013777 002534 163556 MOV SDRVS ,aDRVS SRESTORE LOCATION USED AS THE INTERRUPT PS 
3126 016752 017737 163544 002560 MOV aCSR,RCSR [MOVE RECEIVED DATA TO RCSR 
3127 016760 013701 002560 MOV RCSR.RI [MOVE RECEIVED DATA TO R1 ALSO AND 
3128 016764 042701 177761 BIC #CENC,R1 ‘CLEAR ALL BUT THE FUNCTION BITS 
3129 016770 020137 001364 CMP R1, STMP2 SEE IF FUNCTION BIT(S) HAD INCREMENTED PROPERLY 
3130 916776 001412 BEQ 4$ BRANCH IF THEY HAD 
131 016776 013737 002560 002572 MOV RCSR,ECSR MOVE RECEIVED DATA TO EXPECTED LOCATION 
13 017004 042737 0016 002572 BIC #FNC.ECSR “CLEAR THE FUNCTION BIT(S) THAT WERE THERE AND 
133 017012 053737 001364 002572 BIS SIME? ECSR :PUT FUNCTION BIT(S) EXPECTED IN THEIR PLACE 
134 017020 Vouete ERROR 212 “FUNCTION BITS DIDN'T INCREMENT IN MAINT MODE 
3135 017022 005237 001360 4$: INC MPO SADJUST WCR LOAD LOCATION 
3136 017026 162737 000002 001364 SUB Hs “SUBTRACT 2 FROM FUNCTION COUNT TEST LOCATION 
3137 017034 001264 BNE 1$ ‘BRANCH BACK FOR ANOTHER TRY 
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TEST #22 - TEST FOR 10 MAINT MODE TRANSFERS 
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017054 
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-SBTTL TEST #22 = TEST FOR 10 MAINT MODE TRANSFERS 


FRR RA RARE A AREA AAE EEA AA AAA EAAAAAAAAAAAAAAAAAAAAAAAAAA HARE AAT 


T*TEST 22 


7 
-* 
-* 


TST22: 


1000$: 
1001$: 


999$: 


1$: 


BIT 
BEQ 
TYPE 


BR 
-ASCIZ 
-EVEN 


TEST FOR 10 MAINT MODE TRANSFERS 
THiS TEST CHECKS IF 10 MAINTENANCE MODE TRANSFERS CAN BE DONE. 


#B1T11,aSWR 
1001$ 
1000$ 
{001$ 
/T # 22/<CRLFD 


#999 ,SLPERR 
acsrR 
#10,BUFLEN 
BUFLEN,WCLEN 
WCLEN 


PC ,LODBUF 


#-1,aBDR 
@DRINV, SDRINV 
@DRVS, SDRVS 
#2$, aDRINV 
LEVEL, aDRVS 


WA, acsr 
#IE+CY+GO,aCSR 
#1000, TIME 
TIME 


SORINV,@DRINV 
SDRVS ,aDRVS 
;* acai 


acsr 
3$ 


+ 
Ww 


#4,SP 
SDRINV,@DRINV 
SDRVS , @DRVS 


ERRCNT 
PC Wahans 


+2 
PC ,DATCH2 


:8& GET OV 


RRA AAAEAA AEA AAAAAAERAAAAAAAAAAAAAAAAATAAAEAAAAEAAAAEE 


788 TEST TO SEE IF TEST NUMBER TRACER ENABLED 
08 BRANCH IF 
@ TYPE: ‘'T 22" 
ER ASCII 
;8& THE ASCII MESSAGE 


;PROCESS LOOPING = TEST NUMBER INCREMENT 
ise! LOOP ON ERROR TO 999$ 

sFORCE ACCESS TO CSR 

;BUFLEN=10 

;PREPARE NUMBER FOR WCR 

:2'S COMPLEMENT OF BUFLEN 

LOAD IN BUFFER WITH INCREMENTING PATTERN 


SEQ 0107 


:LOAD ¢ gt BUFFER WITH MODIFIED INCREMENTING PATTERN 


E 
SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
:SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
; INTERRUPT VECTOR 
: INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE 
;LET DR11_ INTERRUPT 
sMAINT NT MODE 


CYCLE & GO 
:SET LOOP COUNTER FOR WAIT 
:DECREMENT UNTIL wt ee TO ZERO 
;BRANCH BACK IF NOT ZERO 
sRESTORE LOCATION USED AS THE INTERRUPT VECTOR 
;RESTORE LOCATION USED AS THE INTERRUPT PS 
:MOVE RECEIVED DATA TO RCSR 
:D0R11 FAILED TO INTERRUPT 
;CLEAR THE CSR TO DO AN INIT 
;BRANCH AROUND THE STACK CLEANUP 
:CLEAN UP STACK AFTER THE INTERRUP 
SRESTORE LOCATION USED AS THE INTERRUPT VECTOR 
RESTORE LOCATION USED AS THE INTERRUPT PS 
:GO CLEAR IE, CHECK ERROR, READY, WCR= : AND BAR 
CSR AND-OR WCR AND-OR BAR ARE INCORECT 
:CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201 
;CHECK INBUF AFTER A MAINTENANCE MODE OPERATION 
SBUFFER DATA NOT CORRECT 
7GO0 BACK TO SUBROUTINE AFTER ERROR RTS IN DATCHK 
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TEST #23 = TEST 10 MAINTENANCE MODE XFERS SEQ 0108 
3185 .SBTTL TEST #23 = TEST 10 MAINTENANCE MODE XFERS 
SRRAAAAA AAA AAA AERA AAA RAE A AAA ATAAAEKAAAAAAE ATE KAH HAHA K AAA AA KATA Te 
SaTEST 23 TEST 10 MAINTENANCE MODE XFERS 
:* THIS TEST CHECKS THAT 10 MAINTENANCE MODE TRANSFERS, ATTEMPTED BEFORE 
;* SERVICING A PENDING INTERRUPT OF A PREVIOUS TRANSFER, ARE UNSUCCESSFUL. 
*® 
[eeeeeeeeeeeeeeeeeeeeeeereneeeereneneeteeneeeettertentereerereeenee 
017334 032777 004000 161776 TST23: BIT #B1T11,aSwWR 38 TEST TO SEE IF TEST NUMBER TRACER ENABLED 
017342 001407 BEQ 1001$ °8& BRANCH IF NOT 
017344 104401 017352 TYPE 10008 <8& TYPE: ‘'T # 23 
017350 000404 BR {001$ °8& GET OVER ASCII 
017352 124 040 043 1000$: ta. /T # 23/<CRLF> 88 THE ASCII MESSAGE 
017362 1001$: 
017362 000004 SCOPE ;PROCESS LOOPING -“ TEST NUMBER INCREMENT 
017364 012737 017372 001310 MOY! #999$,S$LPERR | :SET LOOP ON ERROR TO 999$ 
3186 017372 004737 004036 999$: JSR PC CLENUP : SUBROUT INE TO CCEAR OEVICE REGISTERS & SET CPU PRI TO 7 
3187 017376 012737 001000 002660 MOV #1000, TIME SSET DELAY 
3188 017404 012737 000010 002622 MOV #10,BUFLEN : BUFLEN=10 
3189 017412 013737 002622 002630 MOV BUFLEN,WCLEN : PREPARE NUMBER FOR WCR 
3190 017420 005437 002630 NEG WCLEN :2°S COMPLEMENT OF BUFLEN 
3191 017424 004737 003472 JSR PC ,LODBUF LOAD IN BUFFER WITH INCREMENTING PATTERN 
3192 017430 004737 003520 JSR PC, CHKBFF trae yt BUFFER WITH MODIFIED INCREMENTING PATTERN 
3193 0174 3777 002630 163054 MOV WCLEN,awcR ‘SET UP WCR 
3194 017442 013777 002616 163050 MOV INBUF ,@BAR 3s SET . BAR 
3195 017450 012777 177777 163046 MOV #-1,aBDR ‘MAINT AIDE 
3196 017456 017737 163044 002532 MOV aDRINV, SORINV sSAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
3197 017464 017737 163040 002534 MOV aDdRvs, SDRVS : SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
3198 017472 012777 017572 163026 MOV #2$, aDRINV ‘INTERRUPT VECTOR 
3199 017500 013777 002540 163022 MOV LEVEL ,@DRVS s INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE 
3200 017506 012777 010000 163006 MOV #MA,acsR ‘MAINT MODE 
3201 017514 052777 000501 163000 BIS #IE+CY+GO,a@CSR IE, CYCLE & GO 
3202 017522 005337 002660 1$: DEC TIME WAIT FOR TRANSFERS TO COMPLETE 
3203 017526 001375 BNE 1$ ‘BRANCH BACK IF WE ARE STILL WAITING 
3204 017530 013777 002532 162770 MOV SDRINV,@DRINV sRESTORE LOCATION USED AS THE INTERRUPT VECTOR 
3205 017536 013777 002534 162764 MOV SDORVS, aDRVS sRESTORE a ie USED AS THE INTERRUPT PS 
3206 017544 004737 003546 JSR PC INTA 3GO0 CLEAR IE, CHECK ERROR, READY, WCR= : AND BAR 
3207 017550 104051 ERROR +54 3CSR AND-OR WCR AND-OR BAR ARE INCORECT 
3208 017552 005037 002714 CLR ERRCNT *CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201 
3209 017556 004737 003716 JSR PC ,DATCHK * CHECK INBUF AFTER A MAINTENANCE MODE OPERATION 
3210 017562 104201 ERROR +201 ‘BUFFER DATA NOT CORRECT 
3211 017564 004737 004014 JSR PC,DATCH2 :G0 BACK TO SUBROUTINE AFTER ERROR RTS IN DATCHK 
3212 017570 000415 BR 3$ ‘BRANCH TO CONTINUE 
3213 017572 ¢/06 000004 23: ADD #4,SP :CLEAN UP THE STACK FROM THIS INTERRUPT 
3214 017576 013777 002532 162722 MOV SDRINV,@DRINV  :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
3215 0176046 013777 002534 162716 MOV SORVS, ,aDRVS sRESTORE LOCATION USED AS THE INTERRUPT PS 
3216 017612 017737 162704 002560 MOV acSR,RCSR ‘MOVE RECEIVED DATA TO RCSR 
3217 01762 104036 ERROR +36 DR11 ah eae P BUT IT SHOULDN'T HAVE 
3218 017622 000523 BR $124 ‘BRANCH TO NEXT TEST 
219 017624 012777 010000 162670 35: MOV #MA.aCSR [MAINT MODE 
3220 017632 016737 001000 002660 MOV #1000, TIME “SET TIME LOOP COUNTER 
221 017640 013777 002630 162650 MOV WCLEN.awCR ‘MOVE WCLEN 19 WER 
3202 017646 013777 002616 16264 MOV INBUF , @BAR [MOVE INBUF TO BAR 
223 017654 17737 162646 002532 MOV @DRINV,SORINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
3224 HS 33 017737 162642 002534 MOV aDRVS,SORVS : SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
3225 017670 012777 020042 162630 MOV #8$, aDRINV “SET UP INTERRUPT VECTOR 


; _ . — 
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T #23 - TEST 10 MAINTENANCE MODE XFERS SEQ 0109 
3226 017676 012777 010000 162616 MOV #MA,aCSR ae MODE 
3227 017704 052777 000501 162610 BIS #1E+CY*GO,aCsR ite. CYCLE & GO 
3228 017712 005337 002660 4$: DEC TIME DECREMENT TO ae WHILE WAITING 
3229 017716 001375 BNE 4$ ;BRANCH BACK IF NOT ZERO 
3230 017720 013777 002532 162600 MOV SDRINV,@DRINV + RESTORE LOCATION. USED AS THE INTERRUPT VECTOR 
3231 Hal; 013777 002534 162574 MOV SDRVS ,aDRVS case ae LOCATION USED AS a INTERRUPT PS 
3232 0177 017737 162562 002560 MOV CSR RCSR OVE RECEIVED DATA TO RCSR 
3233 017742 022737 010700 002560 CMP #10700, RCSR See IF ee READY, MAINT, IE & CYCLE ARE SET 
3234 017750 001404 BEQ 5$ :BRANCH IF THEY AR 
3235 017752 012737 010700 002572 MOV #10700,ECSR ;MOVE EXPECTED DATA TO ECSR 
3236 017760 104040 ERROR +40 IS WRONG 
3237 017762 017737 162532 002566 5$: MOV @BAR,RBAR “MOVE RECEIVED DATA TO RBAR 
3238 017770 022777 177770 162520 CMP #-10,awWCR ;CHECK THAT NO TRANSFERS WERE MADE 
3239 017776 001004 BNE 6$ ;BRANCH 70 ERROR IF THERE WERE 
3240 023737 002616 002566 CMP INBUF ,RBAR CHECK THAT NO TRANSFERS WERE MADE 
3241 020006 001412 BEQ 7$ ;BRANCH AROUND ERROR IF NONE 
3242 020010 017737 162502 002570 68%: MOV awWCR,RWCR s;MOVE RECEIVED DATA TO RWCR 
3243 020016 012737 177770 002602 MOV #-10,EWCR sMOVE EXPECTED DATA TO ieee 
3244 020024 013737 002616 002600 MOV INBUF ,EBAR ;MOVE EXPECTED DATA TO EBAR 
3245 020032 104041 ERROR +41 ; TRANSFERS SHOULD sy) BEEN INHIBITED 
46 005077 162462 7$: CLR acsrR SCLEAR THE CSR TO DO AN INIT 
3247 020040 000414 BR TST24 ;BRANCH TO NEXT TES eT 
3248 020042 062706 000004 8$: ADD #4 SP :CLEAN UP STACK AFTER INTERRUPT 
3249 020046 013777 002532 162452 MOV SDRINV,@DRINV ;RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
3250 020054 013777 002534 162446 MOV SDRVS ,ADRVS sRESTORE LOCATION USED AS THE INTERRUPT PS 
3251 020062 017737 162434 002560 MOV aCSR,RCSR ;MOVE RECEIVED DATA TO RCSR 


3252 020070 104042 ERROR +42 ;DR11 SHOULD NOT HAVE INTERRUPTED A 2ND TIME 


ite 
TE 
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ST #24 = TEST FOR 200 NPR TRANSFERS IN MAINT MODE SEQ 0110 
3258 .SBTTL TEST #24 = TEST FOR 200 NPR TRANSFERS IN MAINT MODE 
FRRAARAAAT RARER AAAAEA TATA ETAT AAA AAAAAAAAAAEREAAAAAAAARA HAHA AAE EE 
SeTEST 24 TEST FOR 200 NPR TRANSFERS IN MAINT MODE 
;* 
te THIS TEST CHECKS FOR 200 NPR TRANSFERS IN MAINTENANCE MODE. 
-* 
Seeeeeeeeeeceneeeeeeeeeeeeneeeenaeeeenneneneeeeeeeereneeereereeeee 
920072 032777 004000 161240 TST24: BIT #B1T11,aSWR :@@ TEST TO SEE IF TEST NUMBER TRACER ENABLED 
020100 001407 BEQ 1001$ :8& BRANCH IF NOT 
020102 104401 020110 TYPE 10008 '8& TYPE: ''T # 24" 
020106 000404 BR 001$ [88 GET OVER ASCII 
020110 124 040 043 10008: -ASCIZ /T # 24/<CRLF> :8& THE ASCI! MESSAGE 
~EVEN 
020120 1001$: 
020120 000004 SCOPE sPROCESS LOOPING AND TEST NUMBER INCREMENT 
020122 012737 020130 001310 MOV #999$,SLPERR | :SET LOOP ON ERROR TO 999$ 
3259 020130 004737 004036 999$: JSR PC, CLENUP SUBROUTINE TO COEARS DEVICE REGISTERS & SET CPU PRI TO 7 
3260 020134 005077 162362 CLR acsr ;FORCE ACCESS TO CSR 
3261 020140 012737 000200 002622 MOV #200, BUFLEN “LENGTH OF BUFFER = 200 
3262 020146 013737 002622 002630 MOY BUFLEN, WCLEN ‘PREPARE NUMBER FOR WCR 
3263 020154 005437 002630 NEG WCLEN [2'S COMPLEMENT OF BUFLEN 
3264 020160 004737 003472 JSR BS LODBUF [LOAD INBUF WITH INCREMENTING PATTERN 
3265 020164 004737 003520 JSR PC, CHKBF F “LOAD CHKBUF WITH MODIFIED INCREMENTED PATTERN 
3266 020170 013777 002630 162320 MOV WCLEN, a@WCR ‘SET UP WCR 
3267 020176 013777 002616 162314 MOV INBUF BAR ‘SET UP BAR 
68 020206 012777 177777 162312 MOV #-1,aB0R :MAINT AIDE 
3269 020212 017737 162310 002532 MOV @DRINV,SDRINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
3270 020220 017737 162304 002534 MOV aDRVS, SDRVS ‘SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
3271 020226 012777 020330 162272 MOV #2$,a0RINV SINT VECTOR 
72 020234 013777 002540 162266 MOV LEVEL ,aDRVS ‘INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE 
3273 020242 005037 177776 CLR PSW :LET THE DR11 INTERRUPT 
3274 020246 012777 010000 162246 MOV #MA,aCSR MAINT MODE 
3275 020254 012737 001000 002660 MOV #1060, TIME :SET WAIT LOOP COUNTER 
3276 020262 052777 000501 162232 BIS #IE+CY+GO,aCSR :IE, CYCLE & G 
3277 020270 005337 002660 i$: DEC TIME :DECREMENT UNTIL WE GET TO ZERO 
3278 020274 001375 BNE 1$ ‘BRANCH BACK IF NOT ZERO 
3279 020276 017737 162220 002560 MOV aCSR,RCSR ;MOVE RECEIVED DATA TO RCSR 
020304 013777 002532 162214 MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
3281 020312 013777 002534 162210 MOV SDRVS ,a@DRVS =RESTORE LOCATION USED AS THE INTERRUPT PS 
3282 020320 104043 ERROR +43 sEXPECTED INTERRUPT DID NOT OCCUR 
3283 020322 005077 162174 CLR acsr “CLEAR THE CSR TO DO AN INIT 
3284 020326 000402 BR 3$ ‘BRANCH AROUND THE STACK CLEANUP 
3285 020330 062706 000004 2$: ADD #4,SP ‘CLEAN UP THE STACK AFTER INTERRUPT 
3286 020334 013777 002532 162164 35: MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
3287 020342 013777 002534 162160 MOV SDRVS,a@DRVS :RESTORE LOCATION USED AS THE INTERRUPT PS 
3288 020350 004737 003546 JSR PC, INTA ‘GO CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR 
3289 020354 104051 ERROR +51 “CSR AND-OR WCR AND-OR BAR ARE INCORRECT 
3290 020356 005037 002714 CLR ERRCNT ‘CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201 
3291 020362 004737 003716 JSR PC ,DATCHK “CHECK INBUF AFTER A MAINTENANCE MODE OPERATION 
292 020366 104201 ERROR +201 ‘BUFFER DATA NOT CORRECT 
293 020370 004737 004014 JSR PC ,DATCH2 :G0 BACK TO SUBROUTINE AFTER ERROR RTS IN DATCHK 


ees GEN NPR INTFC 
T #25 = DOING DATO TO DIODE MEMORY CAUSES NEX 


-SBTTL TEST #25 = DOING DATO TO DIODE MEMORY CAUSES NEX 


3300 


020374 
020402 
020404 


020424 

3301 020432 

3302 020436 

3303 020442 

3304 020450 

3305 020456 
306 0 


64 
3307 020472 


WAAAY ANA AWA 


00 
2 020602 
020606 


WWAWAIANIAAAIW 


032777 004000 
104401 020412 
040 


012737 020432 


337 002660 
375 
777 =«002532 
777 =002534 
737 «161732 
104035 
005077 161722 
000431 
062706 000004 


022701 140200 


013737 002560 
052737 140200 
104040 
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160736 


ao Hooocnca 
— 


002660 


161750 
161744 
002560 


161712 
161706 
002560 


002572 
002572 


peeeeereneeeeeeeeeeereeereeereredteeeteKeeKeneeTteeAAeeKeeteneerere 


:TEST 25 DOING DATO TO DIODE MEMORY CAUSES NEX 

te THIS TEST INSURES THAT DOING A DATO TO DIODE MEMORY CAUSES THE NEX BIT 
i (BIT 14) TO SET. 

-® 

jeeeeeneneecerencececercereereeetectecaeeggeaeeercerecececseeeeeese 

Tst25: BIT Ub TEST TO SEE IF TEST NUMBER TRACER ENABLED 


#B1T11,aSwR 
BEQ 1001$ 

TYPE 10008 

BR {001$ 
1000$: .ASCIZ /T # 25/<CRLF> 
10018: 


MOV #999% ,SLPERR 
9998: i Tt aiaead 


MOV LEVEL, -@DRVS 


MOV #MA,aCSR 
BIS #F14+X64X7,aCSR 
BIS #1E+CY¥+G0,aCSR 
MOV #1000, TIME 

1$: DEC 1. 


MOV SORINV,@DRINV 
MOV SDRVS,aDRVS 
MOV @CSR,RCSR 


ERROR +35 

CLR acsr 

BR TST26 
2$: ADD 


#4 ,SP 
MOV SDRINV,@DRINV 
MOV SDRVS ,aDRVS 
MOV ht 


RCSR,R 
BIC #37577,R1 
CMP HERSNK+RY RI 


RCSR,ECSR 
BIS MER+NX+RY,ECSR 
ERROR +40 


788 rae IF N 

:@& TYPE: ''T # oy 

;88 GET OVER ASCII 
:@& THE ASCII MESSAGE 


;PROCESS LOOPING ae bee NUMBER INCREMENT 


;SET LOOP ON ERROR T 


SEQ 0111 


$ 
:SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 


:FORCE ACCESS TO CSR 
oer Up UP WCR 


s INTERRUPT VECTOR TO 3$ 


:INTERRUPT STATUS AT Sytner LEVEL OF DEVICE 


[LET THE DR11 INTERRUPT 
;MAINT MODE 

;SET FNCT1, XBA16, AND XBA17 
; IE LE, AND GO 


Cou 
:DECREMENT UNTIL a 
;BRANCH BACK IF NOT 


;RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
;RESTORE LOCATION USED AS THE INTERRUPT PS 


;MOVE RECEIVED DATA TO RCSR 
:DR11 FAILED TO INTERRUPT 
;CLEAR THE CSR TO DO AN INIT 
;BRANCH TO THE NEXT TEST 
;RESTORE THE STACK 


SRESTORE LOCATION USED AS THE INTERRUPT VECTOR 
;RESTORE LOCATION USED AS THE INTERRUPT PS 


:MOVE CSR DATA TO RCSR 
:MOVE DATA TO R1 FOR CHEC 


KING 
;CLEAR ALL BUT ERROR, . _—— BITS 


;SEE IF ALL THESE ITs A 


RE SE 
:BRANCH TO THE NEXT TEST HH THEY ARE ALL SET 


sMOVE EXPECTED DATA TO ECS 


;SET THE BIT THAT SHOULD HAVE BEEN SET 


;CSR IS WRONG 


P BAR 
; SAVE VLOCATION TO BE USED AS THE INTERRUPT VECTOR 
:SAVE LOCATION TO BE USED AS THE INTERRUPT PS 


A 
| 
| 


3339 


020664 


020702 


020712 
020712 
020714 
3340 020722 


w 
ooooooooo°o°o 
Troror mer 
BnwV——SOVSS 


SRO 
O@n 


032777 


005077 


CZDRLCO-DRi1 GEN NPR_INTFC 
TEST #26 = CROSSING 32K DOESN'T 


004000 
020702 
040 


020722 


002660 
002532 


002534 
161454 


002560 
140200 


161360 
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CAUSE BAOF OR FORCE ERROR 
.SBTTL TEST #26 - CROSSING 32K DOESN'T CAUSE BAOF OR FORCE ERROR 


FRAC RA AAA AE AREA AETHER ATA ATAERAAAAA HAART ARATE AAAA RAHA AAA A ATT 


CROSSING 32K DOESN'T CAUSE BAOF OR FORCE ERROR 


THIS TEST INSURES THAT CROSSING THE 32K BOUNDARY DOES NOT CAUSE A BAOF 
OR FORCE ERROR. 


160446 


043 


001310 


002560 


161440 
161434 
002560 


002572 
002572 


*TEST 26 


TST26: 


1000$: 
1001$: 


999$: 


2$: 


BIT 

BEQ 

TYPE 
R 


#B1T11,aSWR 
001$ 
10008 
{001$ 
/T # 26/<CRLF> 


19998 SLPERR 
ENUP 
Ate aWCR 


#-2,aBAR 
SDRINV, SDRINV 
@DRVS,SDRVS 
#2$ ,aDRINV 
LEVEL ,aDRVS 
#1000, TIME 


PSW 
#MA,aCSR 
#565, acsr 


is 
SDRINV,@DRINV 
SDRVS,@DRVS 


#4,SP 
SDRINV,@DRINV 
SDRVS ,aDRVS 
acSR,RCS 
RCSR,R1 
#37577,R1 
#ER+RY4NX,R1 
TST27 
RCSR,ECSR 
#ER+RY*NX,ECSR 
acsr 


+ 
= 


RRR AEAEREARARARERAEAAAEAE AERA AAAEAAAARAAAAAAAAAAAAREREAKERETAAAAEEHS 


788 TEST TO SEE IF TEST NUMBER TRACER ENABLED 
:& BRANCH IF NOT 

788 TYPE: 6' 

88 GET OVER ASCII 

:8& THE ASCII MESSAGE 


;PROCESS LOOPING AND TEST NUMBER INCREMENT 
;SET LOOP ON ERROR TO 999 


SEQ O112 


: SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 


;SET UP W 
:SET UP BAR FOR PROC STATUS ADDRESS 


;SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 


‘SAVE LOCATION To BE USED AS THE INTERRUPT PS 
‘INTERRUPT VECTOR TO 3$ 

‘INTERRUPT STATUS AT PRIORITY LEVEL OF DEVICE 
‘SET WAIT LOOP COUNTER 

‘LET THE DR11 INTERRUPT 

‘MAINT MODE 

:CYCLE, IE, FNCT1, XBA17 BATS, AND GO TO CSR 
“DECREMENT UNTIL WE GET TO 

‘BRANCH BACK IF NOT ZERO 

SRESTORE LOCATION USED AS THE INTERRUPT VECTOR 
SRESTORE LOCATION USED AS THE INTERRUPT PS 
“MOVE CSR CONTENTS TO RCSR 

[DR11 FAILED TO INTERRUPT 

‘BRANCH TO NEXT TEST 

[CLEAN UP STACK AFTER INTERRUPT 

SRESTORE LOCATION USED AS THE INTERRUPT VECTOR 
SRESTORE LOCATION USED AS. THE INTERRUPT PS 


; TESTING 

[CLEAR ALL BUT THE ERROR AND READY BITS 
:SEE IF ERROR, READY AND NEX ARE SET 
BRANCH TO NEXT TEST IF THEY ARE 

;MOVE EXPECTED DATA TO ECSR 

Aad ry hel THAT SHOULD HAVE BEEN SET 
:CLEAR THE CSR TO DO AN INIT 
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TEST #27 = CHECK ACTUAL POSITION OF 2-N BURST SWITCH SEQ 0113 
3376 ~SBTTL TEST #27 = CHECK ACTUAL POSITION OF 2-N BURST SWITCH 
SRARAA AERA AAA AAAEAAAA AAA AAA AAA AAA AAA AAAAAAEAATAAAAAAAEAAR AREAS 
*TEST 27 CHECK ACTUAL POSITION OF 2-N BURST SWITCH 
ie 
he THIS TEST INSURES THAT THE 2-N BURST SWITCH IS IN THE POSITION THAT 
:* THE DEVICE DESCRIPTOR WORD SAYS IT SHOULD BE. 
'* 
jreaeeneeegeeneeccerecteereereetesseanecnernnreerecenceesssereecess 
021142 032777 004000 160170 TST27: BIT #B1T11,aSwR ;88 TEST TO SEE IF TEST NUMBER TRACER ENABLED 
021150 001407 BEQ 001$ :8& BRANCH IF NOT 
021152 104401 021160 TYPE 1000$ 388 TYPE: ''T # 27 
021156 000404 BR 1001$ ;88 GET OVER ASCII 
021160 124 040 043 10008: rely /T # 27/<CRLF> 8% THE ASCII MESSAGE 
021170 1001$: 
021170 000004 SCOPE ;PROCESS LOOPING AND TEST NUMGER INCREMENT 
021172 012737 021210 001310 MOV #999$ ,SLPERR ;SET LOOP ON ors TO 999$ 
3377 021200 032737 000001 002610 BIT #81T0,B0RW sTESTING A 'B" A ‘w''? 
3378 021206 001456 BEQ INOOUT BRANCH TO INGOUT tr DR11-B 
3379 021210 004737 004036 999$: JSR PC,CLENUP ;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
3380 021214 012777 100000 161300 MOV WEIR, aCSR :60 TO EIR MODE 
3381 021222 017737 161274 002562 MOV @CSR,REIR :MOVE EIR DATA TO REIR 
3382 021230 005077 161266 CLR acsrR :G0 BACK TO CSR 
3383 021234 013701 002562 MOV REIR,R1 MOVE DATA TO R1 A 
3384 021240 000301 SWAB R1 :GET BIT 8 INTO Bit 0. BY SWAPPING BYTES 
3385 021242 006301 ASL R1 ;MOVE BIT O INTO BIT 
3386 021244 042701 177775 BIC #CBIT1,R1 :CLEAR ALL BUT BIT 1 
3387 021250 013702 002720 MOV DDW,R2 PUT wiity DESCRIPTOR WORD IN R2 
3388 021254 042702 177775 BIC #CBIT1,R2 :CLEAR ALL BUT BIT 1 
3389 021260 001402 BEQ 1$ ‘BRANCH iF IT IS CLEAR 
3390 021262 005602 CLR R2 :CLEAR THE BIT 
3391 021264 000402 ~ @R 2$ 3;G0 TEST THE BIT 
3592 021266 012702 000002 1$: MOV #B1T1,R2 ;SET THE BIT 
3393 021272 020102 2$: CMP R1,R2 7SEE IF RECEIVED MATCHES EXPECTED 
3394 021274 001017 BNE 5$ ;BRANCH TO CHECK FOR LOOP ON TEST 
3395 021276 013737 002562 002574 MOV REIR,EEIR s;MOVE EXPECTED DATA TO EEIR 
3396 021304 032737 000400 002574 BIT #8118, EEIR ;TEST STATE OF BIT 8 
3397 021312 001404 BEQ 3$ ;BRANCH IF IT IS CLEAR 
3398 021314 042737 0009400 002574 BIC #B1T8,EEIR sREVERSE STATE - EXPECTED CLEAR 
3399 021322 000403 BR 4% :G0 CALL ERROR 
3400 021324 052737 000400 002574 38: BIS #B1T8,EE1R ;REVERSE STATE - EXPECTED SET 
3401 021332 104054 4$: ERROR +54 T2-N CYCLE BURST SWITCH IN WRONG POSITION 
3402 021334 032777 040400 157776 5$: BIT #B1T14+B1T8,aSwR; SEE IF WE SHOULD LOOP ON THIS TEST 


3403 021342 001322 BNE 999% ;BRANCH BACK IF SO 
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3404 .SBTTL CODE TO CHECK CABLE STATUS FOR EXECUTION OF CABLE TESTS 

Sena : CABLE MODE TESTING (WRAP-AROUND CABLE IN USER SLOTS) 

3407 ; TESTS 30 THRU 37 ARE PERFORMED IF BIT 2 OF DEVICE DESCRIPTOR WORD IS 
ot ; SET, INDICATING CABLE IS IN. 

3410 021344 032737 000004 002720 INOOUT: BIT #B1T2,0DW :SEE IF CABLE IS IN 

3411 021352 001002 BNE TST30 ‘BRANCH TO NEXT TEST IF CABLE IS IN 

3412 021354 000137 024360 JMP ENDEV : JUMP TO ENDEV = TESTS ARE NOT TO BE DONE 


SEQ 0114 








9 
CZDRLCO-DRi1 GEN NPR INTFC MACRO M1113 27-OCT-80 15:53 PAGE "09 
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TEST #30 - CHECK CSR BIT PATTERNS WITH MAINT BIT CLEAR SEQ 0115 
3420 .SBTTL TEST #30 - CHECK CSR BIT PATTERNS WITH MAINT BIT CLEAR 
SRACRAAE AR ARE RAE AAA A AAA T AREA AAA A AAA AAAAAAAAAAAAAAAAARARA ATA AAETS 
SeTEST 30 CHECK CSR BIT PATTERNS WITH MAINT BIT CLEAR 
7 
3 THIS TEST SETS ALL POSSIBLE COMBINATIONS OF SET BITS IN THE CSR WITH 
3 THE MAINTENANCE BIT CLEAR, AND COMPARES, qr RECEIVED CSR CONTENTS WITH 
3 THAT OF THE EXPECTED SET TERNS IN 'MAICLR 
;* 
021360 032777 004000 157752 {sT30: BIT #B1T11,aSuR :8& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
021366 001407 BEQ 1001$ 88 BRANCH, IF NOT 
021370 104401 021376 TYPE 10008 :8& TYPE: ‘'T # 30°" 
021374 000404 BR 1001$ 88 GET OVER ASCII 
021376 124 040 043 10008: -ASCIZ /T # 30/<CRLF> :@& THE ASCII MESSAGE 
021406 1001$: 
021406 000004 SCOPE sPROCESS LOOPING | AND Als NUMBER INCREMENT 
021410 012737 021444 001310 MOV #999%, SLPERR :SET LOOP ON ERRO 998 
3421 021416 004737 004036 JSR PC,CLENU : SUBROUTINE TO CCEAR DEVICE REGISTERS &@ SET CPU PRI TO 7 
3422 021422 005037 002714 CLR ERRCNT > CLEAR THe ERRCNT LOCATION FOR USE OF ERROR +202 
3423 021426 012700 000002 MOV #2,R0 :DO 2 SETS OF 200 PATTERNS 
3424 021432 012701 006266 MOV #MAICLR,R1 ‘MOVE ADDRESS OF EXPECTED PATTERNS TO R1 
3425 021436 005002 CLR R2 ‘START WITH PATTERN ZERO 
3426 021440 012703 000200 1$: MOV #200,R3 ‘MOVE 200 TO THE LOOP COUNTER 
3427 021444 052777 010000 161050 999$: BIS #MA, CSR :SET MAINTENAN NCE A ND 
3428 021452 005077 161044 CLR acsr SCLEAR TO DO AN INIT 
3429 021456 017737 161040 002560 MOV @CSR,RCSR ‘MOVE RECEIVED DATA TO RCSR 
3430 021464 022737 000200 002560 CMP #RY,RCSR MAKE SURE READY BIT IS THE ONLY BIT SET 
3431 021472 001404 BEQ ‘BRANCH IF SO 
3432 021474 012737. 000200 002572 MOV #RY,ECSR SMOVE EXPECTED DATA TO ECSR 
3433 021502 104032 ERROR +32 “READY I$ NOT THE ONLY BIT SET 
3434 021504 012777 177777 161004 28: MOV #-1,awWcR “MOVE 1 WORD COUNT TO WCR IN CASE OF IE ENABLED 
3435 021512 012777 053700 161000 MOV #NOCARE,@BAR § :MOVE A NOT-CARE ADDRESS TO BAR FOR SAME REASON 
3436 021520 010277 160776 MOV R2,acSR “SET THE PARTICULAR FUNCTION BITS IN CSR 
3437 021524 017737 160772 002560 MOV @CSR,RCSR :MOVE RECEIVED DATA TO RCSR 
3438 021532 011137 002572 MOV (R1).ECSR [MOVE EXPECTED DATA TO ECSR 
3439 021536 023737 002572 002560 CMP ECSR.RCSR [COMPARE EXPECTED WITH RECEIVED 
3440 021544 001427 BEQ 6$ ‘BRANCH IF OK 
3441 021546 012737 000401 021556 MOV #CY+G0, 3% SREESTABLISH BIT PATT ERN 
3442 021554 040227 BIC R2, (PC)+ [SEE IF BOTH CYCLE AND GO WERE SET 
3443 021556 000401 3$: .WORD CY+#GO [LOCATION TO HOLD BOTH eYcle AND GO BITS 
3444 021560 001016 BNE 5$ “BRANCH TO ERROR ONLY IF EITHER OR BOTH BITS WERE CLEAR 
3445 021562 005737 002712 TST MEMGMT SEE IF MEMORY MANAGEMENT IS OUT THERE 
3446 021566 001404 BEQ 4$ ‘BRANCH IF NOT 
3447 021570 032737 000060 002572 BIT #X6+X7,ECSR “SEE IF EITHER XBA16 OR XBAI? ARE SET 
3448 021576 001407 BEQ 5$ SBRANCH TO ERROR IF BOTH ARE CLEAR 
3449 021600 052737 140000 002572 4$: BIS PER+NX,ECSR 3SET THE ERROR AND NEX BITS - EXPECT THEM TO SET 
3030 ae tee 023737 002572 002560 CMP ets. RCSR sNOW SEE IF DATA MATCHES 
51 021614 001403 BEQ ‘BRANCH AROUND ERROR IF IT DOES 
345¢ 021616 010237 002536 5$: MOV ‘ BUT “MOVE THE BITS SET INTO CSR TO THE BUT LOCATION 
3453 021622 104202 ERROR 62 [CSR PATTERN NOT CORRECT 
3454 021628 062701 000002 6$: ADD 2,R1 S INCREMENT R1 19 (NEXT EXPECTED PATTERN 
3455 0216 520¢ INC gD S INCREMENT THE PATTERN 
56 021632 00530 DEC R3 i DECRERENT THE (Ooe COUNTER 
3457 021634 001303 BNE 9998 ;BRANCH BACK IF NOT DONE 
58 361676 062702 000200 ADD #200,R2 ADD 200 TO PATTERN LOCATION 
3459 021642 005300 DEC RO SDECREMENT THE LOOP COUNTER AND 
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TEST #30 - CHECK CSR BIT PATTERNS WITH MAINT BIT CLEAR 


3460 021644 001275 


BNE 1$ 


;BRANCH BACK IF 2ND OCTAL GROUP NOT DONE 


SEQ 0116 


’ 
LE wT —_ 
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TEST #31 = CHECK BAR WITH CSR CLEAR SEQ 0117 
3466 .SBTTL TEST #31 - CHECK BAR WITH CSR CLEAR 
FRRAAAAAAAEAAARERERH EAA AARAA AAA AAAAAAAEAAAAAAAAAAAAAAAAHARE ANTE ATS 
TEST 31 CHECK BAR WITH CSR CLEAR 
ie THIS TEST CHECKS THAT BAR BIT 0 IS CLEAR WITH CSR CLEAR (CSR=0). 
** 
errr errrrr TTT TTT TTrTTTTTTTTTTTITITITITITITITITITITILTI LLL iti itil) 
021646 032777 004000 157464 fST31: BIT #B1T11,aSWR :8& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
021654 001407 BEQ 1001$ 78 BRANCH, IF 
021656 104401 021664 TYPE 10008 “8 TYPE: ''T # 
021662 000404 BR {001$ [88 GET OVER ‘stir 
021664 124 040 043 10008: -ASCIZ /T # 31/<CRLF> :8& THE ASCII MESSAGE 
021674 1001$: 
021674 000004 SCOPE ;PROCESS LOOPING . TEST NUMBER INCREMENT 
021676 012737 021704 001310 MOV #999$,$LPERR | :SET LOOP ON ERROR 9 
3467 021704 004737 004036 999$: JSR PC, CLENUP : SUBROUTINE TO COEARS DEVICE REGISTERS & SET CPU PRI TO 7 
3468 021710 012777 001360 160602 MOV #STMPO ,ABAR ‘PUT AN ADDRESS IN THE 
3469 021716 012777 000001 160576 MOV #G0,acsR *SET JUST THE GO BIT TO CLEAR THE READY BIT 
3470 021724 017737 160572 002560 MOV @cSR,RCSR ‘MOVE RECEIVED DATA TO RCSR 
3471 021732 001403 BEQ 1$ :BRANCH AROUND ERROR IF EQUAL TO ZERO 
3472 021734 005037 002572 CLR ECSR MOVE EXPECTED DATA TO ECSR 
3473 021740 104040 ERROR +40 'CSR 1S WRONG 
3474 021742 017737 160552 002566 1$: MOV @BAR,RBAR > MOVE RECEIVED Bt TO RBAR 
3475 021750 032737 000001 002566 BIT #5110, RBAR ‘SEE IF THIS BIT IS CLEAR 
3476 021756 001407 BEQ TST3 “BRANCH TO NEXT TEST IF IT WAS 
3477 021760 013737 002566 002600 MOV RBAR ean ‘MOVE EXPECTED DATA TO EBAR 
3478 021766 042737 000001 002600 BIC #B110, EBAR “CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR 


3479 021774 104044 ERROR :BAR 1S WRONG 


2 eee 
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| 3486 .SBTTL TEST #32 - TEST 7 SINGLE DATI NON BURST MODE TRANSFERS 
; FRRRERA RARER AEAAAAAAAAAAAAAAAA TAA AAAAAAAAAAAAAAAAAAA AHA A RAAT TS 
TEST 32 TEST 7 SINGLE DATI NON BURST MODE TRANSFERS 
ce THIS TEST DOES 7 BIT PATTERNS oF SINGLE DATI NON BURST MODE TRANSFERS, 
3 AND THAT THEY ARE DONE PROPERLY 
32 
H RRR AAAAAEEAARAEAAEAAAAAAAAAARAAAAAAAAAAAAEAAAAAAAAERAAAAAAAAAAAAAAEE 
021776 032777 004000 157334 TST32: BIT #B1T11,aSWR 388 TEST TO SEE IF TEST NUMBER TRACER ENABLED 
022004 001407 BEQ 1001$ '®& BRANCH IF NO 
022006 104401 022014 TYPE 1000$ [8@ TYPE: "T # 32" 
022012 000404 R {001$ '@& GET OVER ASCII 
022014 124 040 043 1000S: ASCIZ /T # 32/<CRLF> :8@ THE ASCII MESSAGE 
022024 1001$: 
022024 0004 SCOPE ;PROCESS LOOPING . TEST NUMBER INCREMENT 
022026 012737 022050 001310 OV #999$,$LPERR | :SET LOOP ON ERROR TO 999$ 
3487 022034 012702 000007 1$: MOV #7,R2 :SET UP LOOP CO UNTER. - DO 7 BIT PATTERNS 
022040 005037 002714 CLR ERRCNT *CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201 
3489 022044 012703 006250 MOV #PATRNS,R3 SMOVE ADDRESS OF PATTERNS TO R3 
90 022050 017737 160452 002532 999%: MOV @DRINV, SDRINV sSAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
3491 022056 017737 160446 002534 MOV @DRVS,SDRVS + SAVE LOCATION TO * USED AS THE INTERRUPT PS 
3492 022064 012777 022226 160434 MOV #3$,aDRINV : INTERRUPT VECTOR TO 4$ 
3493 022072 013777 002540 160430 MOV LEVEL,aDRVS : INTERRUPT STATUS HK PRIORITY LEVEL OF DEVICE 
3494 022100 5037 177776 CLR PSW SLET THE DR11 INTERRUPT 
3495 022104 012777 010000 150410 MOV #MA,aCSR :D0 AN INIT BY SETTING AND 
96 022112 077 160404 CLR acsrR ;CLEARING THE al —— BIT 
97 022116 012777 177777 160372 MOV #-1,aWCR ‘SET UP FOR 1 T 
98 02 124 012777 002612 160366 MOV #NPR1,@BAR : TRANSFER FROM Bus “ADDRESS IN NPR1 
99 022132 005077 160366 CLR @BOR ‘GET READY TO ah DAT 
3500 022136 011337 002612 MOV (R3) ,NPR1 iSET UP TRANSFER DAT 
3501 022142 012777 110 160352 MOV #F3+I1E,aCSR :SET THE NON BURST CFNCTS) AND IE 
3502 022150 052777 000401 160344 BIS #CY¥+GO,aCsSR :SET THE CYCLE AND GO BIT 
3503 022156 005037 002660 CLR TIME *CLEAR THE TIME LOCATION Fon WAIT LOOP 
3504 022162 005237 002660 2s: INC TIME : INCREMENT UNTIL WE GET TO ZERO AGAIN 
3505 022166 0013575 BNE 23 *BRAN CH BACK IF WE AREN'T THERE YET 
3506 022170 013777 002532 160330 MOV SDRINV,@DRINV sRESTORE LOCATION USED AS THE INTERRUPT VECTOR 
3507 022176 013777 002534 160324 MOV SDRVS ,aDRVS SRESTORE LOCATION USED AS THE INTERRUPT PS 
3508 022204 017737 160312 002560 MOV aCSR,RCSR ;MOVE RECEIVED DATA TO RCSR 
3509 Oeeete 011337 0026 V (R3) ,ENPR1 MOVE PATTERN TO ENPR1 
3510 02 16 104035 ERROR +35 {DRII FAILED TO INTERRUPT 
3511 0 2220 005077 160276 CLR acsr ‘CLEAR THE CSR TO DO AN INIT 
351¢ 022224 000450 BR 5$ ‘BRANCH TO SEE IF THERE ARE | ANY MORE PATTERNS TO CHECK 
3513 022226 062706 000004 3s: ADD #4,SP [CLEAN STACK AFTER INTERR 
3514 022232 013777 002532 160266 MOV SDRINV,@DRINV :RESTORE LOCATION USED AS OTHE INTERRUPT VECTOR 
3515 0 sooo 013777 002534 160262 MOV SDRVS ,aDRVS sRESTORE LOCATION USED AS THE INTERRUPT PS 
316 0 346 004737 004254 JSR PC,E SCLEAR IE, CHECK 
517 02225 1o4oe1 ERROR + ‘ERROR BIT SHOULD HAVE BEEN CLEAR 
518 022254 017737 160240 002566 aBA “MOVE RECEIVED DATA 
519 62 1273? 002615 002600 MOV pa EBAR ‘MOVE EXPECTED DATA TO EBAR 
520 17737 160230 002564 MOV @BDR, RBOR “MOVE RECEIVED DATA TO RBDR 
521 76 011337 002576 MOV (R3) -EBDR “MOVE EXPECTED DATA TO EBDR 
5 é : 17737, 160210 002570 MOV aWCRRWCR “MOVE RECEIVED DATA TO RWCR 
3 310 005037 002602 CLR EWCR “MOVE EXPECTED DATA TO EWCR 
524 022314 023737 002566 002600 CMP RBAR,EBAR [COMPARE RECEIVED WITH EXPECTED 
525 0 322 001010 BNE 4 ‘BRANCH IF WRONG 
526 022324 023737 002564 002576 CMP RBDR,EBDR ‘COMPARE RECEIVED WITH EXPECTED 


- _—_—— eee) 
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#32 - TEST 7 SINGLE DATI NON BURST MODE TRANSFERS SEQ 0119 








$28f itt 001004 BNE 4$ ;BRANCH IF WRONG 

528 022334 023737 002570 002602 CMP RWCR,EWCR ;COMPARE RECEIVED WITH EXPECTED 

3529 022342 001401 BEQ $ BRANCH IF OK 

3530 022344 104211 4$: ERROR +211 ;CSR_AND-OR_WCR eT BAR ARE INCORRECT 
3531 022346 062703 000902 5$: ADD #2,R3 :INCREMENT TO NEXT PATTERN 

$288 022352 005302 DEC Re :DECREMENT THE LOOP COUNTER 

3533 022354 001235 BNE 999% ;BRANCH BACK IF NOT ZERO YET 


—---~— - — — 
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TEST #33 - TEST STRING OF 200 DATIS BURST MODE XFERS SEQ 0120 
3539 .SBTTL TEST #33 - TEST STRING OF 200 DATIS BURST MODE XFERS 
RARER REAR REE RER AEE E EEA E EERE RA AAA AAA A AAA EA AAR AREA E RAE A ARTE AES 
TEST 33 TEST STRING OF 200 DATIS BURST MODE XFERS 
3* THIS TEST DOES 200 DATI TRANSFERS IN BURST MODE. 
;* 
SERRA RR RRR ER EEA A EAE A AAA A AAA AREER AAA AAAARARAAAAET TEATS 
022356 032777 004000 156754 TST33: BIT #B1T11,aSWR :8& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
022364 001407 BEQ 1001$ :6& BRANCH IFN 
022366 104401 022374 TYPE 1000$ [88 TYPE: ''T # 
022372 000404 BR 1001$ [88 GET OVER ‘stil 
022374 124 040 043 10008: ~ASCIZ /T # 33/<CRLF> :8& THE ASCII MESSAGE 
022404 1001$: 
022404 000004 SCOPE sPROCESS LOOPING AND TEST NUMBER INCREMENT 
022406 012737 022414 001310 MOV #999$,$LPERR | :SET LOOP ON ERROR TO 999$ 
3540 022414 004737 004036 999$: JSR PC ,CLENUP ‘SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
3541 022420 012737 000200 002622 ~ MOV #260. BUFLEN ‘LENGTH OF BUFFER=200 
3542 022426 004737 003472 JSR PC,LODBUF ‘LOAD THE BUFFER WITH INCREMENTING PATTERN 
3543 022432 012737 177600 002630 MOV #-200,WCLEN “PREPARE NUMBER FOR WCR 
3544 022440 013777 002630 160050 MOV WCLEN, aWCR ‘SET UP WCR 
3545 022446 013777 002616 160044 MOV INBUF , @BAR ‘SET uP BAR 
3546 022454 012777 177777 160042 MOV #-1,@BDR ‘MAINT AIDE 
3547 022462 017737 160040 002532 MOV @DRINV,SDRINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
3548 022470 017737 160034 002534 MOV QDRVS, SDRVS “SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
3549 022476 012777 022606 160022 MOV #2$,aDRINV SINT VECTOR 
3550 022504 013777 002540 160016 MOV LEVEL ,aDRVS ‘INTERRUPT STATUS 10 ybEvEl OF DEVICE 
3551 022512 005037 177776 CLR PSW ‘LET THE DR11 INTERR 
3552 022516 012777 000100 157776 MOV #IE,aCSR :SET INTERRUPT ENABLE. 
3553 022524 052777 000401 157770 BIS #CY+G0,aCSR :CYCLE, GO 
3554 022532 012737 001000 002660 MOV #1000, TIME ‘WAIT FOR INTERRUPT 
3555 022540 005337 002660 1$: DEC TIME :DECREMENT UNTIL WE REACH ZERO 
3556 022544 001375 BNE 1$ ‘BRANCH BACK IF NOT ZERO 
3557 022546 013777 002532 157752 MOV SDRINV,@DRINV  :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
3558 022554 013777 002534 157746 MOV SDRVS ,aDRVS “RESTORE LOCATION USED AS THE INTERRUPT PS 
3559 022562 017737 157734 002560 MOV acSR,RCSR ‘MOVE RECEIVED DATA TO RCSR 
3560 022570 104035 ERROR +35 [DR11 FAILED TO INTERRUPT 
3561 022572 012777 010000 157722 MOV #MA,aCSR “SET THE MAINTENANCE BIT AND 
3562 022600 005077 157716 CLR acsr [CLEAR THE CSR TO D0 AN INIT 
3563 022604 000426 BR TST34 BRANCH TO NEXT TEST 
3564 022606 062706 000004 2$: ADD #4,5P [CLEAN UP STACK AFTER INTERRUPT 
3565 022612 013777 002532 157706 MOV SDRINV, @DRINV ;RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
3566 022620 013777 002534 157702 MOV SDRVS ,@DRVS RESTORE LOCATION USED AS THE INTERRUPT P 
3567 022626 004737 003546 JSR PC, INTA 'G0 CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR 
3568 022632 104051 ERROR +51 “CSR AND-OR WCR AND-OR BAR ARE INCORECT 
3569 022634 017737 157664 002564 MOV @BDR,RBDR ‘MOVE RECEIVED DATA TO RBDR 
3570 022642 022737 000177 002564 CMP #177.RBDR ‘CHECK THAT WORD #200 OF INBUF IS IN BDR 
3571 022650 001404 BEQ TST3 ‘BRANCH TO NEXT TEST IF IT IS 
3572 022652 012737 (00177 002576 MOV #177, EBDR ‘MOVE EXPECTED DATA TO EBDR 
3573 022660 104045 ERROR +45 ‘BAD DATA IN BDR 
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TEST #34 = TEST 7 SINGLE DATO NON BURST MODE TRANSFERS SEQ 0121 





3580 .SBTTL TEST #34 = TEST 7 SINGLE DATO NON BURST MODE TRANSFERS 
RRR RE ERATE AAA A EEE AAAAAAA AREA AAA AAAAAA ATER AAR AREER ARES 
;sTEST 34 TEST 7 SINGLE DATO NON BURST MODE TRANSFERS 
it THIS TEST DOES 7 PATTERNS OF SINGLE DATO NON BURST MODE TRANSFERS, AND 
3* THAT THEY ARE DONE PROPERLY. 
3* 
; RRR AERA 
022662 032777 004000 156450 TST34: BIT #B1T11,aSWR :@& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
022670 001407 BEQ 1001$ 6 BRANCH IF NOT 
022672 104401 022700 TYPE 10008 '8& TYPE: "'T # 34" 
022676 000404 R 001$ [@& GET OVER ASCII 
022700 124 040 043 1000S: ASCIZ /T # 34/<CRLF> :8& THE ASCII MESSAGE 
022710 10018: 
022710 000004 SCOPE ;PROCESS LOOPING AND TEST NUMBER INCREMENT 
022712 012737 022734 001310 MOV #999$,SLPERR — ;SET LOOP ON ERROR TO 999S 
1 022720 012702 000007 1$: MOV #7,R2 ‘DO 7 BIT PATTERNS 
3582 022724 005037 002714 CLR ERRCNT “CLEAR THE ERRCNT LOCATION FOR USE OF ERROR +201 
3583 022730 012703 006250 MOV #PATRNS,R3 SMOVE ADDRESS OF PATTERNS TO R3 
35 022734 017737 157566 002532 999%: MOV QDRINV, SDRINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
3585 022742 017737 157562 002534 MOV aDRVS, SDRVS ‘SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
3586 022750 012777 023122 157550 MOV #3$,aDRINV ‘INTERRUPT VECTOR TO 3$ 
3587 022756 013777 002540 157544 MOV LEVEL, aDRVS “INTERRUPT STATUS To LEVEL OF DEVICE 
022764 005037 177776 CLR PSW SLET DRI INTERRUPT 
3589 022770 012777 010000 157524 MOV #MA,aCSR [D0 AN INIT 
90 022776 005077 157520 CLR acsrR FORCE ACCESS TO CSR 
3591 02 02 012777 177777 157506 MOV #-1,aWCR “SET UP FOR 1 TRANSFER 
3592 02301 012777 002612 157502 MOV #NPR1,QBAR : TRANSFER TO BUS ADDRESS IN NPR1 
3593 023016 005037 002612 CLR NPR1 ‘GET READY TO RECEIVE DATA 
3594 023022 011377 157476 MOV (R3) ,@BDR “SET UP TO TRANSFER DATA 
3595 023026 012777 000112 157466 MOV #FI+E3+1E,aCSR DATO (FNCT1), FNCT3, 
023034 052777 000401 157460 BIS #CY+G0,aCSR CYCLE, GO 
023042 012737 001000 002660 MOV #1000, TIME “CLEAR THE TIME LOCATION FOR WAIT LOOP 
3598 023050 005337 002660 2$: DEC TIME ‘DECREMENT UNTIL WE GET Back TO ZERO 
023054 001375 BNE 28 “BRANCH BACK IF NOT ZERO 
3600 023056 013777 002532 157442 MOV SDRINV,@DRINV  :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
3601 023064 013777 002534 157436 MOV SDRVS,aDRVS “RESTORE LOCATION USED AS THE INTERRUPT PS 
3602 023072 017737 157424 002560 MOV @CSR,RCSR “MOVE RECEIVED DATA TO RCSR 
3603 023100 011337 001360 MOV (R3) . STMPO “MOVE PATTERN TO $TMPO 
3604 023104 104035 ERROR +35 :DR11 FAILED TO INTERRUPT 
3605 023106 012777 010000 157406 MOV #MA,aCSR “SET THE MAINTENANCE BIT AND 
3606 023114 005077 157402 CLR acsR ‘CLEAR THE CSR TO DO AN INIT 
3607 023120 000445 BR 6$ ‘BRANCH TO DO NEXT PATTERN 
3608 023122 062706 000004 3S: ADD #4,SP “CLEAN UP STACK FROM INTERRUP 
3609 023126 013777 002532 157372 MOV SDRINV,@DRINV :RESTORE LOCATION USED AS TNE INTERRUPT VECTOR 
3610 023134 013777 002534 157366 MOV SDRVS,a@DRVS :RESTORE LOCATION USED aS THE INTERRUPT PS 
3611 023142 004737 004254 JSR PC ,ERRCHK CLEA CHECK FOR ERROR 
3612 023146 104081 ERROR +2 + ERROR at SHOULD HAVE BEEN CLEAR 
3613 023150 017737 157342 002570 MOV @WCR,RWCR :MOVE RECEIVED DATA TO RWCR 
3614 023156 001403 BEQ ANCH IF IT IS EQUAL TO ZERO 
3615 023160 011337 001362 MOV (R3), STMP1 ROVE PATTERN TO $TMPO 
3616 023164 104206 ERROR +206 “WOR NOT EQUAL TO ZERO 
3617 023166 017737 157326 002566 4%: MOV @BAR, RBAR ‘MOVE RECEIVED ADDRESS TO RBAR 
3618 023174 022737 002615 002566 CMP #NPR1+3, RBAR SCOMPARE CORRECT BAR WITH BAR CABLE MODE TESTING LEAVES 
3619 BIT 0 OF BAR SET. THEREFORE MUST CHECK FOR ODD ADDRESS 
3620 023202 001406 BEQ 5$ ‘BRANCH IF IT IS OK 
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GRsororororonw 
ONOULS WH 


ooooooc[e°oo 


3639 
3630 023242 


E 
T 


N_NPR INTFC 
7 SINGLE DATO NON BURST MODE TRANSFERS 
012737 002615 002600 MOV 
011337 001362 MOV 
104207 ERROR 
021337 002612 5$: CMP 
001403 BEQ 
011337 002604 MOV 
104210 ERROR 
062703 000002 6$: ADD 
005302 DEC 
001234 BNE 
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#NPR1+3,EBAR 
ao 


+20 
(R3),NPR1 
6$ 
(R3),ENPR1 
+210. 

es. R3 
8605 


sMOVE EXPECTED DATA TO EBAR 

:MOVE PATTERN TO STMPO 

BAR 1S WRONG 

;CHECK FOR CORRECT DATA 

:BRANCH IF CORRECT YD Need 


SEQ 0122 


a 
¢ 
i: 
| 023274 
36 
3640 
| 364 


35 = TEST STRING OR 200 DATOS BURST MODE XFER 


3636 


023244 


023262 


023272 
023272 


3637 023302 
06 


3647 023370 


~ 


FRBLSESEGRSSRSESK 


FEFEFSELES ESSE ws 
onsen 


MOPOPOPONMOPOPOPY POP feroroery 


3 


6 
3648 0 
3649 0 
3650 0 
3651 0 
3652 0 
3053 0 
3654 0 
3655 0 
3656 0 
3657 0 
3658 0 
3659 0 
3660 0 
3661 0 
3662 0 
3663 0 
3664 0 
3665 0 
3666 0 
3667 0 
3668 0 

0 
0 


MIMPMIPOPOPOPUforY 


& 
“~ 
oo 


032777 


=n O— 


cesscscs2e 
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004000 
023262 
040 


023302 


002660 
002532 
002534 
157042 


010000 
157024 


003546 
004106 
004170 
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156066 


043 


001310 
002622 


157030 


SEQ 0123 


.SBTTL TEST #35 = TEST STRING OR 200 DATOS BURST MODE XFERS 


SERRE AERA REA ERRATA AAA RE RARE AAA RAAT AAA AAA AA AAA AREA RARE A ET 


*TEST 35 


® 


So Se Se eee 
ae 


TST35: 


1000$: 
1001$: 


999$: 


1$: 


2$: 


TEST STRING OR 200 DATOS BURST MODE XFERS 
THIS TEST CHECKS 200 DATO TRANSFERS IN BURST MODE. 


REAR REA EAR RAEATEREATAAEAAEAAAAAAAAAAEAAAAAAAAERAAAAAEAKAAEA EERE 


BIT #B1T11,aSWR :@& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
BEQ 1001$ *@& BRANCH IF NO 

TYPE 1000$ :8& TYPE: "'T 1 35"' 

R {001$ [88 GET OVER ASCII 

ASCIZ /T # 35/<CRLF> :8&% THE ASCII MESSAGE 

SCOPE sPROCESS LOOPING AND TEST NUMBER INCREMENT 
MOV #999$,$LPERR | :SET LOOP ON ERROR TO 999$ 

CLR acsR sFORCE ACCESS TO 
MOV #200, BUFLEN [LENGTH OF BUFFER=200 

JSR PC ,LODBUF “LOAD THE BUFFER WITH INCREMENTING PATTERN 
MOV BUFLEN,WCLEN | :PREPARE NUMBER FOR WCR 

NEG WCLEN '2'S COMPLEMENT OF BUFLEN 

MOV WCLEN, awcR :SET UP WCR 

MOV INBUF ,aBAR :SET UP BAR 
MOV #52525, ,aBOR :SET UP BDR 
MOV @DRINV.SDRINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
MOV @DRVS.SDRVS ‘SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
MOV #2$,aDRINV S INTERRUPT VECTOR 
MOV LEVEL ,aDRVS ‘INTERRUPT STATUS TO LEVEL OF DEVICE 

CLR PSW ‘LET THE DR11 INTERRUPT 
MOV #IE+F1,aCSR :IE, FNCT1 
BIS #CY+G0,aCSR CYCL LEN GO 
MOV #1000, TIME ‘MOVE WAIT LOOP VALUE TO TIME LOCATION 
DEC TIME ‘DECREMENT UNTIL WE REACH ZERO 
BNE 1$ ‘BRANCH BACK IF NOT ZERO 
MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
MOV SDRVS,aDRVS “RESTORE LOCATION USED AS THE INTERRUPT PS 
MOV aCSR,RCSR [MOVE RECEIVED DATA TO RCSR 

ERROR +35 :DR11 FAILED TO INTERRUPT 
MOV #MA,aCSR °SET THE MAINTENANCE BIT AND 

CLR acs ‘CLEAR THE CSR TO DO AN INIT 
BR TST36 ‘BRANCH TO NEXT TEST 

ADD #4,SP ‘CLEAN STACK AFTER INTERRUPT 
MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
MOV SDRVS,aDRVS *RESTORE LOCATION USED AS THE INTERRUPT PS 

JSR PC, INTA “GO CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR 
ERROR +5 “CSR AND-OR WCR AND-OR BAR ARE INCORECT 

JSR PC ,DATOCK ‘CHECK INBUF 

ERROR +46 ‘BUFFER DATA NOT CORRECT 

JSR PC ,DATOC2 °GO BACK TO SUBROUTINE AFTER ERROR RTS IN DATOCK 
ERROR +4? :TOO MANY WORDS WERE TRANSFERED 


| 








CZDRLCO-DRi1 GEN NPR INTFC 
TEST #36 - TEST STRING OF 200 DATIS NON-BURST MODE 


-SBTTL TEST #36 = TEST STRING OF 200 DATIS NON-BURST MODE 
ReeeRReeeeeeeeeeeeeeeeeeeeeeeeeeeAeeeeeeeeNeReteeeenerentenereres 


TEST STRING OF 200 DATIS NON-BURST MODE 
THIS TEST DOES 200 DATI TRANSFERS IN NON BURST MODE. 


3676 


MUI WWM 
Cums 
Oanrworm 


NaN 
moo 


3704 

3705 024014 
3706 024022 
3707 024026 
3708 024030 


3712 024054 


032777 


-oCooo°o— 
=8 ~ 


004000 
023560 
040 


025400 


156540 


010000 
156522 


37 000177 
45 
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155570 
043 


001310 


002622 
002630 
156654 


128698 
156622 


156602 


156574 
002660 


156556 
156552 
002560 


156526 


156512 
156506 


002564 
002564 


002576 


*TEST 36 


-* 
® 


je Be Be we 
a 


TST36: 


1000$: 
1001$: 


9998: 


1$: 


2s: 


BIT 

BEQ 

TYPE 
R 


#B1T11,aSWR 
1001$ 

1000$ 

001$ 

/T # 36/<CRLF> 


#999$ ,SLPERR 
pC .CLENUP 


#200, —— 
PC, LODBUF 
BUFLEN, »WCLEN 
WCLEN,a@WCR 
INBUF ,@BAR 
#-1,aBDR 
@DRINV, SDRINV 
ADRVS, SDRVS 


#2$,aDRINV 
LEVEL, aDRVS 


WHILE, acsR 
#CY+G0, tae 
#1000,TI 

TIME 


1$ 
SDRINV,@DRINV 
SDRVS,aDRVS 
@CSR,RCSR 

+35 

#MA,aCSR 

acsrR 

TST137 


#4,SP 

SDRINV,@DRINV 

SDRVS,aDRVS 
INTA 


-vU 
vin 


@BDR ,RBOR 
#177, RBDR 


TST3 
#177, EBDR 
+45 


88 GET OVER A 
:8& THE ASCII 


;PROCESS LOOPING AND o 6 S59 NUMBER INCREMENT 


;SET LOOP ON E 


RRR RAAEAAEAAAAARERAAAA AERA AAERAARAEREERAAAAAAAAAAAAAAAAKAARETAAEEE 


Ht TEST sy ey TEST NUMBER TRACER ENABLED 


SCII 
MESSAGE 


RROR 


SEQ 0124 


TO 
;SUBROUTINE TO CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 


sFORCE ACCESS 
[LENGTH OF BUF 


;LOAD THE BUFFER WITH INCREMENTING PATTERN 


;PREPARE NUMBE 
72'S COMPLEMEN 
;SET-UP WCR 
:SET-UP BAR 
:MAINT AIDE 


:SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
: SAVE LOCATION TO BE USED AS THE INTERRUPT PS 


: INT 


VECTOR 
: INTERRUPT STA 
ber THE per 


e 


:CYCLE, GO 
;SET WAIT LOOP 


;DECREMENT UNT 
BRANCH BACK | 


;RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
;RESTORE LOCATION USED «ie INTERRUPT PS 


;MOVE RECEIVED 
:DR11 FAILED T 
;SET THE MAINT 
:CLEAR THE . 
;BRANCH TO NEXT 
CLEAN UP STAC 


SRESTORE LOCATION USED AS THE INTERRUPT VECTOR 
;RESTORE LOCATION USED AS THE INTERRUPT PS 

7G0 CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR 
WCR AND-OR BAR ARE INCORECT 


:CSR_AND-OR 
;MOVE RECEIVED 


RBDR 
;CHECK THAT WORD e200 OF a IS IN BOR 


;BRANCH TO NEX 
s;MOVE EXPECTED 


:BAD DATA IN BOR 


TO CSR 
FER=200 


R FOR WCR 
T OF BUFLEN 


TUS TO LEVEL OF DEVICE 
INTERRUPT 


COUNTER 
IL WE REACH ZERO 
F NOT ZERO 


DATA TO R 

O INTERRUPT 
ENANCE BIT AND 
TO HY AN INIT 


TEST 
K AFTER INTERRUPT 


DATA TO 


T TEST IF 
sete TO EBDR 
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TEST #37 - TEST STRING OF 200 DATOS NON-BURST MOD SEQ 0125 
3718 .SBTTL TEST #37 = TEST STRING OF 200 DATOS NON-BURST MODE 
PEAR A RAE RA AAA AA AREA A ATE A AAA AAAAA AREA AAA KAA AAA AAA KATE 
SeTEST 37 TEST STRING OF 200 DATOS NON-BURST MODE 
tt 
:* THIS TEST DOES 200 DATOS IN NON BURST MODE. 
jeeeneaeeaneneeeccerertereeteetreneaneaencsecnerseteseeestesteseess 
024056 032777 004000 155254 TsT37: BIT #B1T11,aSWR +8& TEST TO SEE IF TEST NUMBER TRACER ENABLED 
024064 001407 BEQ 001$ *@& BRANCH IF NOT 
024066 104401 024074 TYPE 1000$ ‘88 TYPE: "T # 37° 
024072 000404 BR {001$ ‘88 GET OVER ASCII 
024074 124 040 043 1000S: -ASCIZ /T # 37/<CRLF> :8& THE ASCII MESSAGE 
. Vv 
024104 1001$: 
024104 000004 SCOPE :PROCESS LOOPING AND TEST NUMBER INCREMENT 
024106 012737 024114 001310 MOV #999$,$LPERR | :SET LOOP ON ERROR TO 999$ 
3719 024114 004737 004036 999$: JSR PC, CLENUP : SUBROUTINE 10. CLEAR DEVICE REGISTERS & SET CPU PRI TO 7 
3720 024120 005077 156376 CLR acgr SFORCE ACCESS TO CSR 
3721 024124 012737 000200 002622 MOV #200, BUFLEN ‘LENGTH OF BUFFER=200 
3722 024132 004737 003472 JSR PC,LODBUF sLOAD THE BUFFER WITH INCREMENTING PATTERN 
3723 024136 013737 002622 002630 MOV BUFLEN. WCLEN — ; PREPARE NUMBER FOR WCR 
3724 024144 005437 002630 NEG WCLEN :2'S COMPLEMENT OF BUFLEN 
3725 024150 013777 002630 156340 MOV WCLEN, @wCR ‘SET UP WCR 
3726 024156 013777 002616 156334 MOV INBUF .aBAR SET UP BAR 
3727 024164 012777 052525 156332 MOV #52525, aBDR :SET UP BDR 
3728 024172 017737 156330 002532 MOV @DRINV.SDRINV :SAVE LOCATION TO BE USED AS THE INTERRUPT VECTOR 
3729 024200 017737 156324 002534 MOV @DRVS, SDRVS “SAVE LOCATION TO BE USED AS THE INTERRUPT PS 
024206 012777 024316 156312 MOV #2$,aDRINV S INTERRUPT VECTOR 
3731 024214 013777 002540 156306 MOV LEVEL ,aDRVS ; INTERRUPT STATUS TO LEVEL OF DEVICE 
3732 024222 005037 177776 CLR PSW “LET THE DR11 INTERRUPT 
3733 024226 012777 000112 156266 MOV EI sES+LE. acsR SENCTI, FNCT3, IE 
024234 052777 000401 156260 BIS #CY+G0,aCSR “CYCLE, G 
3735 024242 012737 001000 002660 MOV #1000, TIME ser WAIT LOOP COUNTER 
024250 005337 002660 1$: DEC TIM ‘DECREMENT UNTIL WE GET TO ZERO 
3737 024254 001375 BNE is” {BRANCH BACK IF NOT ZERO 
3738 024256 013777 002532 156242 MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
3739 024264 013777 002534 156236 MOV SDRVS, aDRVS ‘RESTORE LOCATION USED AS THE INTERRUPT PS 
3740 024272 017737 156224 002560 MOV acSR,RCSR [MOVE RECEIVED DATA TO RCSR 
3741 024 104035 ERROR +35 :DR11 FAILED TO INTERRUPT 
3742 024302 012777 010000 156212 MOV #MA,aCSR °SET THE MAINTENANCE BIT AND 
3743 024310 005077 156206 CLR acsr [CLEAR THE CSR TO DO AN INIT 
3744 024314 000421 BR TST40 BRANCH TO NEXT TEST 
3745 024316 062706 000004 2$: ADD #4,SP CLEAN UP STACK AFTER INTERRUPT 
3746 024322 013777 002532 156176 MOV SDRINV,@DRINV :RESTORE LOCATION USED AS THE INTERRUPT VECTOR 
3747 024330 013777 002534 156172 MOV SDRVS ,@DRVS :RESTORE LOCATION USED AS THE INTERRUPT PS 
3748 024336 004737 003546 JSR PC, INTA CLEAR IE, CHECK ERROR, READY, WCR=0 AND BAR 
3749 024342 104051 ERROR +54 eR ANDOR WCR AND-OR BAR ARE INCORECT 
750 024344 004737 004106 JSR PC ,DATOCK [CHECK INBUF 
3751 024350 104046 ERROR +46 ‘BUFFER DATA NOT CORRECT 
3752 024352 004737 004170 JSR PC DATOC2 GO BACK TO SUBROUTINE AFTER ERROR RTS IN DATOCK 
3753 024356 104047 ERROR +47 *TOO MANY WORDS WERE TRANSFERED 
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END OF DEVICE PASS ROUTINE SEQ 0126 
3754 -SBTTL END OF DEVICE PASS ROUTINE 
3755 SReReeeeeeeeeeeRe ee AE ETALK Kee e eee AAeeAKeeAATeeeteeTeetereeeeeees 
3756 024360 000004 ENDEV: SCOPE 3FOR posses LOOP ON TEST 
3757 024362 005037 001302 CLR STSTNM 3CL EAR TEST NO. COUNT FOR SCOPE ROUTINE 
3758 0243 022737 000001 002414 CMP #1, QTYBRD :1S THERE MORE THAN 1 BOARD UNDER TEST? 
3759 024374 001444 BEQ 5$ ‘BRANCH IF NO 
3760 024376 005737 001312 TST SERTTL 7SEE IF THERE WERE ANY ERRORS 
3761 024402 001014 BNE 2$ ;BRANCH AROUND EOP TEST IF SO 
3762 0244 105737 002706 TSTB EOPLOC ;SEE IF EOP MESSAGES ARE TO PRINT 
3763 024410 001413 BEQ 3$ ;BRANCH IF SO 
3764 024412 105737 002707 TSTB EOPLOC+1 ;SEE IF EOP WAS REQUESTED BEFORE 
3765 024416 001003 BNE 1$ :BRANCH TO PRINT MESSAGE IF SO 
3766 024420 105737 030707 TSTB CHARCT ;SEE IF EOD REQUESTED 
3767 024424 001430 BEQ ‘BRANCH AROUND MESSAGE PRINT IF NO 
3768 024426 105237 002707 1$: INCB EOPLOC+1 : INCREMENT UPPER BYTE OF EOPLOC ot CALL wt MESSAGE 
3769 024432 000402 BR 3$ ‘BRANCH IF NOT = NO ERRORS TO SPACE FROM 
3770 024434 104401 001405 2$: TYPE  SCRLF ;TYPE A <CRLF> 
3771 024440 104401 035322 3$: TYPE , BOARD ;TYPE: ‘BOARD # 
3772 024444 013746 001422 MOV SUNIT,-(SP) +;SAVE $UNIT FOR TYPEOUT 
024450 104405 TYPDS the TYPE--DECIMAL ASCII WITH SIGN 
3773 024452 104401 036237 TYPE »TSTCOM TYPE: °* TESTING COMPLETE’ 
3774 024456 005737 001312 TST SERTTL >SEE IF ANY ERRORS THIS DEVICE 
3775 024462 001407 BEQ 4$ ;BRANCH AROUND TOTAL ERRORS MESSAGE IF NONE 
3776 024464 104401 034250 TYPE ,ETDEV TYPE: ‘ = TOTAL ERRORS THIS DEVICE = ' 
3777 024470 013746 001312 MOV SERTTL,-(SP) “MOVE NUMBER OF ERRORS TO THE STACK 
3778 024474 104405 TYPDS 3GO TYPE THE NUMBER 
3779 024476 004737 003126 JSR PC,ERCAPT 360 .% THE yest #, PASS # & # OF ERRORS THIS DEVICE 
780 024502 104401 001405 4$: TYPE SCRLF ‘TYPE A <CRL 
3781 024506 005237 001420 5$: INC $DEVCT > INCREMENT bEVICE COUNTER 
3782 024512 023737 002414 001420 CMP QTYBRD,S$DEVCT  :ALL DEVICES TESTED? 
er 024520 001404 BEQ $EOP :GO TO END OF PASS ROUTINE IF SO 


3784 024522 005237 001422 INC SUNIT ; INCREMENT THE UNIT NUMBER 
3785 024526 000137 011020 JMP TSTDEV ;GO TEST NEXT DEVICE 


CZDRLCO-DRi1 GEN NPR INTFC 
END OF PASS ROUTINE 


3786 


024532 


000004 





002706 
001312 
002707 
030707 
000007 
030707 
001312 


024764 
001312 


000001 


030710 
001312 
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030707 


002414 


SEQ 0127 
» SBTTL END OF PASS ROUTINE 


PPeTITITILITITITI LILI t ii titii titi iii iy) 
‘ e INCREMENT THE PASS NUMBER ($PASS) 

:*TYPE "END PASS #XXXXX"" aa i XXXXX IS A DECIMAL NUMBER) 

od THERES A MONITOR GO TO IT 


-#1F THERE ISN'T JUMP TO GOAGIN 
$EOP: 
SCOPE 
CLR STSTNM :;ZERO THE TEST NUMBER 
INC S$PASS :: INCREMENT THE PASS N 
BPL 10$ :@@ BRANCH IF STILL POSITIV 
CLR SPASS *@& CLEAR THE PASS LOCATION AND 
INC $PASS2 *@& INCREMENT $PASS2 TO SHOW 1 OVERFLOW 
10$: DEC (PC)+ +; LOOP? 
SEOPCT: .WORD 1 
BGT $D 


G OAGN 77 YES 
MOV (PC)+,a(PC)+ ;;RESTORE COUNTER 
SENDCT: svoee 1 


TSTB. —« EOPLOC :8& SEE IF EOP MESSAGES ARE TO PRINT 
BEQ 1$ :@& BRANCH IF THEY ARE 
TST SERTTL “@@ SEE IF ANY ERRORS THIS PASS 
BNE 2$ *@& BRANCH IF THERE ARE TO PRINT EOP 
TSTB —« EOPLOC#1 “@& SEE IF ERROR OCCURED IN ANOTHER DEVICE 
BNE 1$ *@@ BRANCH IF ANY TO PRINT EOP 
TSTB —- CHARCT *@& SEE IF ANY USHARACTER WAS INPUTED 
BEQ $GET42 :@& BRANCH IF 
CMPB ss: #7, CHARCT [88 SEE IF OTNER THAT (*G) TYPED, REQUESTING EOP 
BEQ $GET42 °8& BRANCH IF ofa®? - THIS NOT MEANT FOR EOP ROUTINE 
CLRB = CHARCT 788 CLEAR THE L ATION 
BR 3$ :8& GET OVER stRITL TEST AND <CRLF> PRINT 
1$: TST SERTTL *8& SEE IF AN EXTRA <CRLF> NEEDS PRINTING 
BEQ 34 :@& BRANCH IF NOT 
2$: TYPE  ,$CRLF :8& TYPE A <CRLF> TO SPACE EOP FROM ERROR 
3$: CLRB  —s- EOPLOC+1 788 CLEAR THE UPPER BYTE OF EOPLOC 
TYPE SENDMG - TYPE cEND 
MOV $PASS2.-(SP) 288 MOVE OVERFLOM TO STACK FOR PRINTING 
MOV $PASS,-(SP) - MOVE asPASs TO THE STACK FOR PRINTING 
TYPDE ite Ty TYPE THE NUMBER IN EXTENDED DECIMAL 
TYPE SENULL YPE ‘ NULL CHARACTER 
TST $ERTTL ‘ie SEE IF ANY ERRORS THIS PASS 
BEQ 4$ :8& BRANCH AROUND NUMBER OF ERRORS MESSAGE IF NONE 
CMP #1, QTYBRD ‘88 SEE IF ONLY 1 BOARD IS BEING TEST 
BNE 4$ [@& BRANCH IF NOT - 'TOTAL ERRORS’ IS MEANINGLESS 
TYPE TESLR ‘8& TYPE: ' TOTAL ERRORS SINCE LAST REPORT ' 
MOV $ERTTL.-(SP)  :88 PUT SERTTL ON STACK FOR PRINTING 
TYPDS '8@ TYPE THE NUMBER OF ERRORS IN DECIMA 
JSR PC,ERCAPT [8& GO CAPTURE THE DEVICE, PASS & # OF ERRORS 
4$: TYPE  ,S$CRLF [8& TYPE A <CRLF> 
$GET42: MOV a#42,R0 i 3GET | MONITOR ADDRESS 
BEQ SDOAGN ‘BRANCH IF NO MONITOR 
RESET S:CLEAR THE WORLD 
SENDAD: JSR PC, (RO) °:G0 TO MONITOR 
NOP :;SAVE ROOM 
NOP 33FO 
> ;ACT11 


SDOAGN: 
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END OF PASS ROUTINE SEQ 0128 













024760 000137 JMP a(PC)+ ; ;RETURN 
024762 025002 SRTINAD: .WORD GOAGIN 
024764 377 377 000 $ENULL: .BYTE <-1,-1,0 3;NULL CHARACTER STRING 
024767 105 116 104 SENDMG: .ASCIZ /END PASS #/ 
3787 025002 005037 001420 GOAGIN: CLR SDEVCT ;CLEAR DEVICE COUNT 
3788 025006 022737 000001 002414 CMP #1 ,QTYBRD :1S — ONLY ONE DEVICE UNDER TEST? 
3789 025014 001002 BNE RSTRT F NOT 
3790 025016 000137 011206 JMP REINIT ‘G0 “D0 yb gr PASS 
3791 025022 005037 001422 RSTRT: CLR SUNIT ;CLEAR UNIT NUMBER 
3792 025026 000137 011006 JMP BEGIN1 :G0 BEGIN TEST OF NEXT DEVICE 
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TYPE ROUTINE SEQ 0129 


3793 -SBTTL TYPE ROUTINE 


SRA A RARE AAR EAAAA AERA AAA A AAA A AAA AEA AAAAAAAAAAAEAAAAARAKE RAAT AAA TS 


S*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 


| i *THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
| s*NOTE1: S$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
s*NOTE2: SPILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
| : *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
* 
*CALL: 
#1) USING A TRAP INSTRUCTION 
ton TYPE »MESADR ::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
tt 
ie TYPE 
;* MESADR 
é ** 
025032 105737 001357 $TYPE: TSTB STPFLG ::1S THERE A TERMINAL? 
025036 100002 BPL 1$ :;BR IF YES 
025040 000000 HALT ::HALT HERE IF NO TERMINAL 
025042 000430 BR 3$ ;sLEAVE 
025044 010046 1$: MOV RO,-(SP) sSAVE RO 
025046 017600 000002 MOV a2(SP),RO SIGET ADDRESS OF ASCIZ STRING 
025052 122737 000001 001430 CMPB =s- #APTENV, SENV ;;RUNNING IN APT 
025 001011 BNE 62$ :NO,GO CHECK FOR APT CONSOLE 
025062 132737 000100 001431 BITB $#APTSPOOL,SENVM 33 SPOOL MESSAGE TO AP ! 
025070 001405 BEQ 62$ NO,GO CHECK FOR CONSOLE 
025072 010037 025102 MOV RO,61$ :3 SETUP MESSAGE ADDRESS FOR APT 
025076 004737 031534 JSR PC, SATY3 ;; SPOOL MESSAGE TO A 
025102 61$: .WORD 0 : MESSAGE A DRESS 
025104 132737 000040 001431 62$: BITB #APTCSUP,SENVM PoC ORSOLE SUPPRESSED 
025112 001003 BNE 60$ cies. SKIP TYPE OUT 
025114 112046 28: MOVB (RO)+,-(SP) rf PUSH CHARACTER TO BE TYPED ONTO STACK 
025116 001005 BNE 4$ :BR IF IT ISN'T THE TERMINATOR 
025120 005726 TST (SP)+ t:IF TERMINATOR POP IT OFF THE STACK 
025122 012600 60$: MOV (SP)+,RO : RESTORE RO 
025124 062716 000002 3$: ADD #2, (SP) 3 :ADJUST RETURN PC 
025130 000002 RTI ETURN 
025132 122716 000011 4$: CMPB ss #HT, (SP) ::BRANCH IF <HT> 
025136 001430 BEQ 
025140 122716 000200 CMPB Ss CRLF, (SP) ::BRANCH IF NOT <CRLF> 
025144 001006 BNE 
025146 005726 TST (SP)+ ::POP <CR><LF> EQUIV 
025150 104401 TYPE ::TYPE A CR AND LF 
025152 001405 $CRLF 
025154 105037 025374 CLRB  $CHARCNT ::CLEAR CHARACTER COUNT 
025160 000755 BR 2s ::GET NEXT CHARACTER 
025162 004737 025244 5$: JSR PC, STYPEC 3:60 TYPE THIS CHARACTER 
025166 123726 001356 6$: CMPB sss SFILLC, (SP)+ 3318 IT TIME FOR FILLER CHARS.? 
025172 001350 BNE 2s s1F NO GO GET NEXT CHAR. 
025174 013746 001354 MOV SNULL ,-(SP) :3GET oF TILLED suas. NEEDED 
025200 105366 000001 7$: DECB 1(SP) + OOS A NULL NEED TO BE TYPED? 
025204 002770 BLT 6$ ::BR IF NO--GO POP THE NULL OFF OF STACK 
053608 004737 025244 JSR PC, STYPEC 3:60 TYPE A NULL 
025212 105337 025374 DECB SCHARCNT ::D0 NOT COUNT AS A COUNT 
025216 770 7$ ;;LOOP 


BR 
“HORIZONTAL TAB PROCESSOR 
000040 bs: move so#'«, (SP) : REPLACE TAB WITH SPACE 


So 
™ 
wn 
~ 
™ 
So 
-_ 
— 
™ 
~ 
_ 
fey 
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TYPE ROUTINE SEQ 0130 
ogagee ee 025244 9$: JSR PC,STYPEC 7; TYPE A SPACE 
025230 132737 000007 025374 BITB #7, SCHARCNT Hh rye ; NOT AT 
025236 001372 BNE ;TAB STO 
025240 005726 TST (SP)+ : POP SPACE OFF STACK 
Bs acer 000724 BR 2s ;;GET_NEXT CHARACTER 
025244 105777 154100 STYPEC: TSTB asTPs 7:WAIT UNTIL PRINTER IS READY 
025250 100375 BPL STYPEC 
025252 116677 000002 154072 MOVB 2(SP) ,aSTPB 3;LOAD CHAR TO BE TYPED _ DATA REG. 
025260 105777 154060 TSTB asTKs 7:SEE IF KEYBOARD IS TALKING. 
025264 1g! BPL 2$ ;;BRANCH IF IT_ISN'T. 
025266 117737 154054 030707 MOVB @$TKB,CHARCT 88 PUT CHA preg abd 
025274 142737 000200 030707 BICB #200, CHARCT :8& BIT CLEAR PARITY BIT 
025302 122737 000023 030707 CMPB #23,CHARCT 308 SEE IF THIS IS A “S. 
025310 001015 BNE 2s :;BRANCH TO CONTINUE IF IT ISN'T. 
025312 105777 154026 3$: TSTB asTKs 7;WAIT FOR ANOTHER INPUT. 
025316 100375 BPL ;;BRANCH BACK IF NOT READY. 
025320 117737 154022 030707 MOVB @$TKB,CHARCT :8& PUT CHARACTER IN CHARCT 
025326 142737 000200 030707 BICB #200, CHARCT 388 BIT CLEAR PARITY BIT. 
025334 122737 000021 030707 CMPB #21, CHARCT 388 SEE IF THIS IS A “Q. 
025342 001363 BNE 3$ ;;BRANCH BACK FOR MORE WAIT IF NOT. 
025344 122766 000015 000002 2s: CMPB #CR,2(SP) 3318S CHARACTER A CARRIAGE RETURN? 
025352 001003 BNE 1$ ;;BRANCH IF NO , 
025354 105037 025374 CLRB SCHARCNT :YES~-CLEAR CHARACTER COUNT o 
025360 000406 BR STYPEX sEXI 
025362 122766 000012 000002 1S: CMPB af, PS a ::1$ CHARACTER A LINE FEED? 
025370 001402 BEQ $TYP ;;BRANCH IF YES 
025372 105227 INCB (POs 3;COUNT THE CHARACTER 
025374 000000 SCHARCNT: .WORD 0 7; CHARACTER COUNT STORAGE 


025376 000207 STYPEX: RTS PC 


———— 


$s 
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3s 
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06 
00 
11 
11 
11 
01 
01 
01 
11 
00 
06 
11 
11 
01 


000002 
000001 


000006 
000005 


025625 


000006 
025624 
025623 
000012 


025624 
177770 


000060 
000040 
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.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
SRRARERARERAAERERAAAAERATAAATEAAAARARAAAAAAAAEAAAAAAAAAAAAARAAA AAAS 

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-D1GIT 
SeOCTAL (ASCII) NUMBER AND TYPE IT. 

SSTYPOS@-“ENTER HERE TO NSETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


eC 

7% MOV NUM,-(SP) sNUMBER TO BE TYPED 

3* TYPOS ST CALL FOR TYPEOUT 

3* -BYTE WN szN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
7° BYTE :;M=1 OR O 

3* 3; 1=TYPE LEADING ZEROS 

7% ::;0=SUPPRESS LEADING ZEROS 

3% 


:*S$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
:*$TYPOS OR STYPOC 


Z*CALL: 

oe MOV NUM ,-(SP) ;:NUMBER TO BE TYPED 
:* TYPON 3:CALL FOR TYPEOUT 
jSTYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
s@ : 

7@ MOV NUM ,-(SP) ;;NUMBER TO BE TYPED 
:* TYPOC +3 CALL FOR TYPEOUT 
$TYPOS: MOV a(SP),-(SP) PICKUP THE 


MODE 
MOVB 1(SP) ,SOFILL $ LOAD ZERO FILL SWITCH 
MOVB (SP)+,SOMODE+1 NUMBER OF DIGITS TO TYPE 
ADD fe oaee! S TADJUST RETURN ADDRESS 


BR STYPON 
$TYPOC: MOVB #1, SOF ILL ::SET THE ZERO FILL SWITCH 
MOVB #6,S0MODE+1 :;SET FOR SIX(6) DIGITS 
STYPON: MOVB #5,S0CNT :;SET THE ITERATION COUNT 
MOV R3,-(SP) 7; SAVE R3 
MOV R4,-(SP) s;SAVE R4 
MOV R5,-(SP) 7: SAVE RS 
+ SOMODE+1, R4 ::GET THE NUMBER OF DIGITS TO TYPE 
ADD F6.RG ae IT FOR MAX. ALLOWED 
MOVB R4 , SOMODE siSA ve IT FOR US 
MOVB SOFILL,R4 T THE ZERG FILL SWITCH 
MOV 12(SP),R5 F STCKUP THE INPUT NUMBER 
CLR R3 3;CLEAR THE st WORD 
1$: ROL RS ; :ROTATE MSB INTO ‘'C’’ 
BR 3$ OM 
2$: ROL RS +:FORM THIS DIGIT 
ROL R5 
ROL RS 
MOV R5,R3 
3$: ROL R3 3:GET LSB OF wis _bieit 
DECB SOMODE 23 TYPE THIS DIGIT? 
BPL F NO 
BIC #177770,R3 :3GET RID OF JUNK 
BNE 4$ T FOR 
TST R4 i] SUPPRESS THIS 0? 
BEQ 5$ R YES 
4$: INC R4 + DON' ' SUPPRESS ANYMORE 0'S 


BIS #'°0,R3 33MAKE THIS DIGIT ASCII 
5$: BIS # RS 33MAKE ASCII IF NOT ALREADY 





aad TOSS He RR a Re rE RES LA IO RIMS A BEE ES 
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BINARY TO OCTAL (ASCII) AND TYPE SEQ 0132 
025554 110337 025630 MOVB = R23, 8S i: SAVE FOR TYPING 
025560 104401 025620 TYPE $ 3360 TYPE THIS DIGIT 
025564 105337 025622 7$: DECB «=: $OCNT UNT BY 1 
025570 003347 BGT 2$ :3BR ur MORE TO DO 
025572 902402 BLT 6$ F DONE 
025574 005204 INC R4 ::INSURE LAST DIGIT ISN'T A BLANK 
025576 000744 BR 2$ °:G0 DO THE LAST DIGIT 
025600 012608 6$: MOV (SP)+,R5 SERESTORE RS 
025602 012604 MOV (SP) +. RG i 3RESTORE RS 
025604 012603 MOV (SP)+.R3 S:RESTORE R3 
025606 016666 000002 000004 MOV 2(SP) .4(SP) “SET THE STACK FOR RETURNING 
025614 012616 MOV (SP)+, (SP) 
025616 000002 RTI 
025620 000 8$: .BYTE 0 OT OKAGE FOR ASCII DIGIT 
025621 000 "BYTE 0 :: TERMINATOR FOR IPE ROUT INE 
025622 000 SOCNT: :BYTE 0 S!0CTAL DIGIT COUNT 
025623 000 SOFILL: .BYTE 0 S:ZERO FILL SWITCH 
025624 000000 SOMODE: .WORD 0 “:NUMBER OF DIGITS TO TYPE 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0133 


3795 -SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
eRReeeeeeeeeeeeeeLeeeereeeeeeeeeaeeeeeeetereneneeeeerereeneeeeeee 
S*THIS ROUTINE IS USED Y. CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
S*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 





} 
| 
| 
‘®NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
| SeBEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
i #REPLACED WITH SPACES. | 
te MOV NUM, -(SP) ;:PUT THE BINARY NUMBER ON THE STACK 
i* TYPDS °:G0 TO THE ROUTINE | 
‘ee IF YOU SHOULD HAVE A NUMBER GREATER THAN 32767 TO PRINT, LOAD THE 
38 MULTIPLE OF 32768 ON THE STACK, THEN THE REMAINDER AS YOU WOULD 
ABOVE. FOR INSTANCE, WHEN INCREMENTING A COUNTER TO BE PRINTED, 
‘88 TEST FOR NEGATIVE. {Ff NEGATIVE, CLEAR THE LOCATION AND INCREMENT 
ite A SP SPECIAL OVERFLOW LOCATION. 
; OVFNUM,-(SP)  ;8& PUT OVERFLOW NUMBER ON STACK 
388 MOV NUM, -(SP) *@& PUT REMAINING NUMBER ON STACK 
“88 TYPDE :@& GO TO THE ROUTINE 
025626 012737 000001 001364 $TYPDE: MOV #1,$TMP2 [@& SHOW ENTRY AT $TYPDE 
025634 000402 BR $TYPD [@& GO TO ROUTINE 
025636 005037 001364 STYPDS: CLR STMP2 *8& SHOW ENTRY AT STYPDS 
025642 $TYPD: 
025642 010046 MOV RO,-(SP) ;;PUSH RO ON STACK 
025644 010146 MOV R1.-(SP) ::PUSH R1 ON STACK 
25646 010246 MOV R2.-(SP) S:PUSH R2 ON STACK 
025650 010346 MOV R3,-(SP) ::PUSH R3 ON STACK 
025652 0105 MOV R5.-(SP) PUSH R5 ON STACK 
025654 012746 020200 MOV #26200,-(SP) | ::SET BLANK SWITCH AND SIGN 
25660 016605 000020 MOV 20(SP).R5 ::GET THE INPUT NUMBER 
025664 100004 BPL 1$ ::BR IF INPUT I 
025666 005405 NEG R5 ;:MAKE THE BINARY NUMBER POS. 
025670 112766 000055 000001 MOVB = #*=, 1 SP) ::MAKE THE ASCII NUMBER NEG. 


025700 012703 026142 MOV a#SOBLK R3 ‘SETUP THE OUTPUT POINTER 
723 000040 MOVB (RS) + SISET THE FIRST CHARACTER To A BLANK 
2$: CLR R2 *:CLEAR THE BCD NUMBER 
026132 MOV SDTBL(RO).R1 3;GET THE CONSTANT 
38: SUB RIBS 3 FORM (THIS BCD DIGIT 


$41" IF DONE 
>; INCREASE THE BCD DIGIT BY 1 


3$ 
4$: ADD R1.R5 7;ADD BACK THE CONSTANT 
TST R2 s:CHECK IF BCD DIGIT=0 
BNE 5$ 33FALL THROUGH IF 0 
esattel DOING LEADING 0°S? 
::BR IF YES 


I 
5$: ASLB (SP) 22 MSD? 


¢ BR IF 
000001 177777 MOVB =: 1(SP),-1(R3) A eee THE SI 
000060 6$: 0,R2 :MAKE THE BCD DI 
000040 7$: BIS - Re ::MAKE IT A SPACE 


So 
™m 
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ig 
33s 

33 
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Cll 
NOT ALREADY A D1 
N THE OUTPUT BUFF 


et 


wmorr 


SERENVENSS 


) * 
000010 CMP RO, #10 73CHECK THE TABLE 
BLT $ 3:G0 DO THE NEXT DI 


Cooooooooecoco 
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Sa pp a a | 


i=) 
he 
&norory 
OoNOWNINWIW 
2 @o 
Ca 
<nn 
@ 
™ Dee-o-~ 
~ RAYS 
~~ 
= 
w 
— 
a 
s 
= 
wv 
Cc 
— 
—! 
= 
ae 
(7) 
oO 
= 
> 
z= 
> 
oO 
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025676 005000 1$: CLR RO +3 ZERO THE CONSTANTS INDEX 
GIT 
FFER 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0134 
025774 00300 BGT 8$ 33:60 9 EXIT 
025776 tities MOV R5,R2 [:GET THE LSD 
6000 000764 BR 6$ i360 CHANGE TO ASCII 
026002 105726 8$: TSTB ss (SP) + S THE LSD THE FIRST NON-ZERO? 
026004 100003 BPL Hy F NO 
026006 116663 177777 177776 MOVB  -1(SP),-2(R3) i YES==SET THE SIGN, FOR TYPING 
026014 105013 9$: CLRB 3s (R3) “SET THE TERMINAT 
026016 005737 001364 TST $TMP2 “$2 WAS ENTRY ar ST ¥PDS? 
026022 001405 BEQ 108 [8& BRANCH IF 
026024 005766 000020 TST 20(SP) £88 oreT THE OVERFLOW LOCATION 
026030 001402 BEQ 10$ [88 BRANCH IF NON-ZERO 
026052 004737 026154 a JSR PC EXPAND :@& GO EXPAND THE DECIMAL NUMBER 
026036 012605 MOV (SP)+,R5 ::POP STACK INTO RS 
026040 012603 MOV (SP)+,R3 ::POP STACK INTO R3 
026042 012602 MOV (SP)+.R2 ::POP STACK INTO R2 
026044 012601 MOV (SP)+_R1 [:POP STACK INTO R1 
026046 012600 MOV (SP)+.RO 3;POP STACK INTO RO 
026050 104401 026142 TYPE SDBLK “NOW TYPE THE NUMBER 
026054 005737 001364 TST $TMP2 ‘te SEE IF ENTRY WAS AT STYPDS 
026060 001417 BEQ 11$ :8& BRANCH IF SO 
026062 016666 000002 000006 MOV 2(SP),6(SP) [88 ADJUST THE STACK 
026070 012666 000002 MOV (SP)+,2(SP) 88 
026074 005726 TST (SP)+ £88 
026076 105037 026151 _  CLRB  - SDBLK+7 '@& REPLACE ORIGINAL TERMINATOR 
026102 112737 000040 026150 MOVB #' ,$DBLK+6 *8& REPLACE ORIGINAL SPACE CHARACTER 
026110 112737 000040 026142 MOVB #° .$OBLK °8& REPLACE ORIGINAL SPACE CHARACTER 
026116 000002 RTI “@& RETURN TO USER 
026120 016666 000002 000004 11$: Mov 2(SP),4(SP) +; ADJUST THE STACK 
026126 012616 MOV (SP)+, (SP) 
026130 000002 RTI :;RETURN TO USER 
026132 023420 001750 000144 $DTBL: .WORD  10000.,100U.,100.,10. 
026142 $DBLK: .BLKW 5 
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SUBROUTINE TO EXPAND DECIMAL TO LARGER THAN 32767 


-SBTTL SUBROUTINE TO EXPAND DECIMAL TO LARGER THAN 32767 


SREREEREREREAAAEEAAAEAAAEAAAAAEAAAEAARAAAAAAAAAAAAAAAAAEAAAKARAREAAEE 


SEQ 0135 


026154 012708 026150 EXPAND: MOV #SDBLK+6,R2 :@& MOVE LOCATION OF LCD+1 TO R2 

026160 012703 026154 MOV #SDBLK+12, R3  :8& MOVE NEW LOCATION OF LCD+2 To R3 

026164 105043 CLRB (R3) i868 MAKE SURE TERMINATOR IS THERE 

026166 114243 MOVB ne ab 708 MOVE THE 5 ASCII'S TO THEIR NEW LOCATIONS 
026170 114243 MOVB =(R2),=(R3) 

026172 114243 MOVB  =(R2) .=(R3) 88 : 

026174 114243 MOVB  =(R2).=(R3) 88 

026176 114243 MOVB  =(R2).=(R3) 88 

026200 112743 000040 MOVB #' ,-(R3) 388 MOVE 4 SPACE CHARACTERS TO THE 4 NEW LOCATIONS 
0262046 112743 000040 MOVB = #"— w =(R3) 88 
026210 112743 000040 MOVBso#" , =(R3) +88 

026214 112743 000040 MOVB = #*_  =(R3) 88 

026220 013746 001360 MOV $TMPO,-(SP) [88 SAVE $TMPO 

0262 005037 001360 CLR TMPO 88 CLEAR LOCATION TO USE AS ACCUMULATOR 

26230 013746 001362 MOV $TMP1,-(SP) 788 SAVE STMP1 
026234 Eats 001362 CLR P1 88 CLEAR LOCATION TO USE AS 2ND ACCUMULATOR 
026240 012701 026151 MOV #SDBLK+7,R1 [8 MOVE ADDRESS OF LCD TO R2 

026244 012702 026420 MOV #SNUMS+16,R2 88 MOVE ADDRESS+10 br WORD STREAM OF 8*6 TO R2 
026250 016600 000026 1$ MOV 6(SP), '8& MOVE OVERFLOW LOCATION CONTENTS TO RO 
026254 111137 001360 MOVB (R1),$STMPO +88 MOVE ASCII TO THE TEMPORARY LOCATION 
26260 052737 000060 001360 BIS "0, $TMP at} MAKE LOCATION AN ASCII IF NOT ALREADY 
026266 061237 001360 2$: ADD (R25, $TMPO :8& ADD THE NUMBER TO THE ASCII 

026272 022737 000071 001360 CMP #'9,STMP 88 nave WE SURPASSED ASCII ‘'9'? 

26300 002025 BGE 4$ :@& BRANCH iF NOT 
026302 162737 000012 001360 SUB #10. ,$TMPO '@& SUBTRACT 10 FROM THE ASCII AND 

026310 010103 MOV R1.RS 88 MOVE PRESENT ASCII ADDRESS TO R3 

026312 005303 3$: DEC R3 ee DECREMENT TO NEXT ae a ASCII DIGIT 
026314 105213 INCB (R3) 88 ADD THE CARRY TO THE ASCII 
026316 152713 000060 BISB #'0,(R3) 88 SET BITS TO MAKE IT A NUMBER ASCII 
026322 122713 000071 CMPBoa#"9., (R3) 8 SEE LF CARRY NEEDS TO BE TRANSFERED 
026326 002012 BGE 4$ :8& BRANCH IF NOT 

26330 111337 001362 MOVE  (R3),$TMP1 :@& MOVE BYTE TO LOCATION STMP1 
026334 162737 000012 001362 SUB #10. ,STMP1 88 SUBTRACT 10 DECIMAL AND 
026342 113713 001362 MOVB = STMP1, (R3) '8& MOVE IT BACK 

26346 022703 026142 CMP #SDBLK,R3 [88 SEE IF ALL POSITIONS HAVE BEEN DONE 
026352 001357 BNE 3$ [@& BRANCH BACK IF NOT 
026354 005300 4$: DEC RO 88 CECRERENT. THE OVERFLOW LOCATION RO 
026356 001343 BNE 2$ ‘8 BRANCH IF NOT ALL ADDED 

26360 113711 001360 MOVB  $TMPO,(R1) '@& MOVE NEW NUMBER TO LOCATION 

026364 005301 DEC R1 8 POINT R1 TO THE NEXT ASCII LOCATION 
026366 005742 TST -(R2) 88 POINT R2 TO NEXT DIGIT TO ADD 

026370 022701 026145 CMP #SDBLK+3,R1 [88 SEE IF ALL DIGITS HAVE BEEN ADDED 

026374 001325 BNE 1$ : BRANCH IF NOT DONE 

026376 012637 001362 MOV (SP)+,STMP1 88 RESTORE 

026402 012637 001360 MOV (SP) +, $TMPO [8& RESTORE $TMPO 

026406 000207 RTS PC [88 RETURN 

026410 000003 000002 000007 SNUMS: .WORD 3,2,7,6.8. 
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TTY INPUT ROUTINE SEQ 0136 


3796 .SBTTL TTY INPUT ROUTINE 
} REAR RAAAAARARERERERAEEAAAAAAAAAAAAREAARAEAERAAAERAAAAAAAAARAAAAETAAe 
“ENABL LSB 
FURR ARAAARARAARAAAAAHAAAAAAAAAAAAAAAAA KARE KAAKKAAAAAAAAKAA KAKA THATS 
T*SOFTWARE SWITCH REG'S“ER CHANGE ROUTINE. 
:*ROUTINE 1S ENTERED FROM THE TRAP HANDLER, AND WILL 
TeSERVICE THE TEST FOR CHANGE IN. SOFTWARE SuITCH REGISTER TRAP CALL 
:eWHEN OPERATING IN TTY FLAG MO 


DE. 
026422 022737 000176 001340 $ckSWR: CMP #SWREG, SWR i318 THE SOFT-SWR SELECTED? 
026430 001112 BNE 15 “BRANCH IF NO 
026432 105737 030707 TSTB  CHARCT “8& SEE IF CHARACTER WAS INPUTED DURING PRINT 
26436 001405 BEQ 1$ *@@ BRANCH IF NOT 
026440 113746 030707 MOVB  CHARCT,-(SP)  :88 MOVE CHARACTER TO THE STACK 
026444 105037 030707 CLRB  —- CHARCT *8& CLEAR THE CHARACTER FROM CHARCT 
026450 000405 BR 2$ 88 GO CHECK IT 
026452 105777 152666 1$: TSTB ss @STKS is CHAR TH 
026456 100077 BPL 15$ 331F NO, Hd T WAIT AROUND 
026460 117746 152662 MOVB a$TKB,-(SP) ::SAVE THE CHAR 
026464 042716 177600 2$: BIC #°C177, (SP) ::STRIP-OFF THE ASCII 
026470 022726 000007 CMP #7, (SP)+ ::1$ IT A CONTROL G? , 
026474 001404 BEQ 3$ *€& YES, BRANCH AROUND RETURN TO USER SETUP 
026476 116637 177776 030707 MOVB =2(SP),CHARCT :8& MOVE CHARACTER BACK TO CHARCT 
026504 000464 BR 15$ ibe RETURN TO USER 
026506 123727 001334 000001 3$: CMPB —s- $AUTOB,, #1 ARE WE RUNNING IN AUTO-MODE? 
026514 001460 BEQ 15$ ‘BRANCH IF YES 
026516 104401 027202 TYPE »SCNTLG Eh THE CONTROL-G (“*G) 
026522 104401 027207 $GTSWR: TYPE , SMSWR 7; TYPE CURRENT CONTENTS 
026526 013746 000176 MOV SWREG,-(SP) *:SAVE SWREG FOR TYPEOUT 
026532 104402 TYPOC +360 TYPE=-OCTAL ASCII(ALL DIGITS) 
026534 104401 027220 TYPE  ,S$MNEW “PROMPT FOR NEW SWR 
026540 105037 030707 19$: CLRB CHARCT be CLEAR ANY CHARACTER THAT WAS INPUTED DURING PRINT 
026544 005046 CLR =(SP) ‘:CLEAR COUNTER 
026546 005046 CLR (SP) Si THE NEW SWR 
026550 105777 152570 7$: TSTB. = @$STKS *:CHAR THERE? 
026554 100375 BPL 7% s:1F NOT TRY AGAIN 
026556 117746 152564 MOVB a$TKB,-(SP) i PICK UP CHAR 
026562 042716 177600 BIC #°C177, (SP) S3MAKE IT 7-BIT ASCII 
566 021627 000025 9$: CMP (SP) ,#25 t1S IT A CONTROL-U? 
026572 001005 BNE 10$ ::BRANCH IF NOT 
026574 104401 027175 TYPE  ,$CNTLU ::YES, ECHO CONTROL-U (“U) 
026600 062706 000006 20$: ADD #6,SP IGNORE PREVIOUS INPUT 
026604 000746 BR $GTSWR SrLET'S TRY IT AGAIN 
026606 021627 000015 10$: CMP (SP) ,#15 t:IS IT f <ch>? 
026612 001022 BNE 16$ 3 ;BRANCH 
026614 005766 000004 TST 4 (SP) YES, IS f yt FIRST CHAR? 
026620 001403 BEQ 11$ : : BRANCH 
266¢2 016677 000002 152510 MOV 2(SP),a@SwR +: SAVE ay Mt 
026630 062706 000006 11$: ADD #6,SP ':CLEAR UP STACK 
026634 104401 001405 14$: ‘TYPE SCRLF *:ECHO <CR> AND <LF> 
026640 123727 001335 000001 CMPB ss SNAG, #1 :RE-ENABLE TTY KBD INTERRUPTS? 
026646 001003 BNE $ BRANCH IF NOT 
026650 012777 000100 152466 MOV #100,a$TKS : ;RE-ENASLE TTY KBD INTERRUPTS 
026656 000002 S$: RTI + RETURN 
026660 004737 025244 16$: JSR PC, STYPEC S:ECHO CHAR 
026664 21627 000060 CMP (SP) ,#60 SS CHAR < 0? 
026670 002420 BLT 18$ i 3BRANCH IF YES 
026672 021627 000067 CMP (SP) ,#67 ‘CHAR > 7? 





icoonco-annt GEN NPR INTFC 


TTY INPUT ROUTINE 





5 
026700 042726 000060 
| 02 6 000002 


000002 
oceres 056616 177776 


026732 104401 001404 
026736 000720 
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BGT 18$ 
BIC #60, (SP)+ 
TST 2(SP) 
BEQ 17$ 
ASL (SP) 
ASL (SP) 
ASL (SP) 
17$: INC 2(SP) 
BIS =2(SP), (SP) 
BR 7$ 
18$: TYPE $QUES 
BR b0$ 


-DSABL 


yt yryt IF YES 
TRIP-OFF ASCII 
i318 wat * FIRST CHAR 


;;BRA F YES 
ggNO. “st PRESENT 
ie R OVER TO MAKE 


33 ROOM FOR NEW ONE. 
KEEP COUNT OF CHAR 


‘SIMULATE CONTROL =U 


PRAHA AAR AAAAAAA AAA TATALA AAA AHHH KAKA AAA AA KATA AA KK AT ATT AAA HTT TS 


SEG 0137 


———— 


CZDRLCO-DRi1 GEN NPR INTFC 
ROUTINE TO INPUT A SINGLE CHARACTER FROM TTY 


026740 


027056 


000002 


000004 
152370 


152364 
177600 
000004 
152336 
152332 
177600 
000021 
000004 
000004 


000040 


000002 


000004 
000004 
000023 


000140 
000175 
000004 


-* 
** 
“7 


$RDCHR: 


1$: 


2$: 


3$: 


4$: 
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-SBTTL ROUTINE TO INPUT A SINGLE CHARACTER ig TTY 
yg ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE T 


RETURN HERE 


(SP) ,-(SP) 
4(SP),2(SP) 
astks 

1$ 
asTkKB,4(SP) 
#°C<177>,4(SP) 
4(SP),#23 


1 

4(SP) ,#140 
4$ 

4(SP) #175 
4$ 
#40,4(SP) 


3; INPUT A SINGLE ee athe FROM THE TTY 
7; CHARACTER IS ON THE STACK 
;;WITH PARITY BIT STRIPPED OFF 


3;PUSH DOWN THE °C 
3;SAVE THE PS 

:;WAIT FOR 

:;A CHARACTER 

:;READ THE TTY 

3:GET RID OF JUNK IF ANY 
3318 IT 7 ne 


a NOT DISCARD IT 


RESUME 
ils it wea CASE? 
LW IF YES 
S ITA aT ie CHAR? 
BRANCH IF YES 
;;MAKE IT UPPER CASE 
;:GO0 BACK TO USER 


SEQ 0138 
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-SBTTL ROUTINE TO INPUT A STRING FROM TTY 


RERRERERAAERERAAAAERAERAAAAAAAAHAERAAHRAARAARAAAAAAAKEKREATEKAAKAAAATee 


seTHIs ROUTINE WILL INPUT A STRING FROM THE TTY 


3 RDLIN s;INPUT A STRING FROM THE TTY 
3 RETURN HERE i SADDRESS OF FIRST CHARACTER WILL BE ON “HE STACK 
: ‘TERMINATOR WILL BE A BYTE OF ALL O'S 
27060 010346 $RDLIN: MOV R3,-(SP) S:SAVE R3 
027062 012703 027166 1$: MOV #STTYIN,R3 ':GET ADDRESS 
27066 022703 027175 2$: CMP #STTYING7~ .R3 i BUFFER FULL? 
027072 101405 BLOS 4$ YES 
027074 104411 RDCHR +360 READ. ONE CHARACTER FROM THE TTY 
027076 112613 MOVB = (SP)+, (R3) SIGET CHARACTER 
27100 122713 000177 10$:  CMPB #177, (R3) SsIS IT A RyeOUT 
027104 001003 BNE : 3 SKIP IF NOT 
27106 104401 001404 4$: TYPE $QUES [TYPE A '?° 
027112 000763 BR is ::CLEAR THE BUFFER AND LOOP 
027114 111337 027164 3$: MOVB _— (R3),9$ *:ECHO THE CHARACTER 
027120 104401 027164 TYPE, 
027124 122723 000015 CMPB ss #15,, (R3)+ s:CHECK FOR RETURN 
027130 001356 BNE 2$ ‘:LOOP IF NOT RETUR 
027132 105063 177777 CLRB = - 1(R3) [:CLEAR RETURN (THE M15) 
027136 104401 001406 TYPE ,S$LF ::TYPE A LINE FEED 
027142 012603 MOV (SP)+,R3 S:RESTORE R3 
027144 011646 MOV (SP) ,-(SP) ;;ADJUST THE STACK AND PUT ADDRESS OF THE 
027146 016666 000004 000002 MOV 4(SP),2(SP) - FIRST ASCII CHARACTER ON IT 
027154 012766 027166 000004 MOV #STTYIN, 4 (SP) 
027162 000002 RTI :RETU 
027164 9$: .BYTE 0 STORAGE FOR ASCI! CHAR. TO TYPE 
027165 000 “BYTE 0 : : TERMINATOR 
027166 STTYIN: .BLKB 7. ; SRESERVE 7. BYTES FOR TTY INPUT 
027175 136 125 015 $CNTLU: .ASCIZ /*U/<15><12> =: CONTROL "'U'' 
027202 136 107 015 $CNTLG: .ASCIZ /*G/<15><12> 5 CONTROL | 
027207 015 012 123 $MSWR: .ASCIZ <15><12>/SWR = / 
027220 040 040 116 


SMNEW: .ASCIZ / NEW = / 





ee SS 


CZDRLCO-DRi1 GEN NPR INTFC 


READ A DECIMAL NUMBER FROM THE T 


3797 


027232 
02 000004 


Oo 

~™m 

~ 

~ 

a 

Po 
oo-oo°ocoo 
22 Oe oo 


0037 027400 


000055 


000060 
000071 
170000 


2 
o 
Sxexs-=sxe8 


oS 
™~™ 
~ 
ww 
_ 
= 
So 
Ww 


0273 
027336 162701 000060 


666 000012 


son 
ow 
oon 


001404 


K 11 
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-SBTTL READ A 


DECIMAL NUMBER FROM THE TTY 


eeTHIS ROUTINE WILL READ A DECIMAL (ASCII) NUMBER FROM THE TTY AND. 


:*THIS ROUTINE WILL READ A 


DECIMAL (ASCII) NUMBER FROM THE TTY A 


ND 
S*CHANGE IT TO BINARY. IF TOO MANY CHARACTERS OR ANY ILLEGAL yg 3 


ARE READ A ''?"’ FOLLOWED BY A 
:*THE COMPLETE NUMBER MUST BE 


A CARRIAGE RETURN-LINE FEED WILL BE TYPED. 
RETYPED. THE INPUT IS TERMINATED ah THE 


S8USER TYPING A CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER 
seal 32767 TO NEGATIVE 32768. 


7° RDDEC 

i RETURN HERE 

$RDDEC: MOV (SP) ,-(SP) 
000002 MOV 4(SP),2¢SP) 


MOV RO,-(SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 


1$: RDOLIN 
MOV (SP)+,R0 
MOV RO,6$ 
CLR -(SP) 
CLR R2 
CMPB #'=, (RO) 
BNE 2$ 
MOVB (RO)+,R2 
2$: MOVB (RO)+,R1 
BEQ 3$ 
CMPB #'0,R1 
BGT 5$ 
CMPB #'°9,R1 
BLT 
BIT #°C7777, (SP) 
BNE 5$ 
ASL (SP) 
MOV (SP) ,-(SP) 
ASL (SP) 
ASL (SP) 
ADD (S$P)+, (SP) 
BVS 5$ 
SUB #'0, 
ADD R1,(SP) 
BVS 5$ 
BR 2$ 
3$: TST R2 
BEQ 4$ 
NEG (SP) 
4$: MOV (SP)+,12(SP) 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 
RTl 
5$: TST (SP)+ 
CLRB (RO) 
TYPE 
6$: -WORD O 
TYPE SQUES 
BR { 


7;READ A DECIMAL NUMBER 
;;NUMBER IS ON TOP OF THE STACK 


pate at 3 ee + 
T NUMBER 


 TADDRESS OF 1ST CHA 
::SAVE_ INCASE Aad INPUT 


Ht FOR LATER 
PICKUP THIS CHARACTER 

:3GET OUT IF ZERO 

73MAKE SURE THIS CHARACTER 

i318 A DIGIT BETWEEN 0 & 9 


;:DON'T LET NUMBER GET TO BIG 
::BR IF NUMBER WOULD OVERFLOW 
33 
S;SAVE FOR LATER 
iis 

#10. 
Z:OVERFLOW ISN'T ALLOWED 
:7STRIP AWAY THE ASCII JUNK 
Z:ADD_IN THIS DIGIT 
::OVERFLOW ISN'T ALLOWED 


:L00 
ene e NUMBER IS NEG 


:TYPE TH 
: POINTER, GOES H 

2 eR BMLg 
ETRY AGAIN 





SEQ 0140 










READ AN OCTAL NUMBER FROM THE T 
3798 


027410 011646 
027412 016666 000004 000002 


02 
Oe ees 010037 027536 


027446 122716 000060 
027454 122716 000067 


027476 042716 177770 


000012 
027546 


i=] 
mm 
~ 
wa 
— 
= 
eccccs 
ad ed ad ed 
MMmNRNOOWu 
Aoon— 


Ss 
Ss = 


000000 

027540 104401 001404 
000730 

027546 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


FRARAAAAAAAARAAAAAAAA AAA ATAAAAAAAAAAAAAAAAAAAAAAHHAAAAAAT ARTA AAKATS 
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SEQ 0141 
| 


*THIS ROUTINE H bre READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


ieCHA NGE IT TO 
THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
. IF AN ILLEGAL CHARACTER 3 READ Soot art nate BE yg 


2$: 


3$: 


4$: 


5$: 


SHIOCT: 


RDOCT 
RETURN HERE 


: MOV 


BR 
- WORD 


(SP) ,-(SP) 


4(SP) ,2(SP) 


R2,-(SP) 


(SP)+,RO 
RO,5$ 
R1 


R2 
ail ae 


#*C7, (SP) 
i RI 


Ri 12(SP) 
R2,$HIOCT 
(SP)+, 
(SP)+, 
(SP)+, 
(SP)+ 

(RO) 


0 

SQUES 
is 
0 


;;READ AN OCTAL NUMBER 
+3 LOW ORDER BITS ARE ON TOP OF THE STACK 
HIGH ORDER BITS . IN SHIOCT 
: PROVIDE mee FOR THE 
NUMBER 


UT 
; PUSH RO ON STACK 
SIRE AD AN ASCIZ LINE 
:3GET aboness OF 1ST CHARACTER 
SI CLEAR DATA WORD 
:;PICKUP THIS CHARACTER 
ie1F ZERO GET OUT 
s:MAKE SURE THIS CHARACTER 
7318S AN OCTAL DIGIT 
33*2 
33%4 
33*8 


oy ta THE ASCII JUNK 
;ADD_IN THIS DIGIT 


ZL 
SECLEAN TERMINATOR FROM STACK 
33;SAVE THE RESULT 


33POP STACK INTO R2 

33POP STACK INTO R1 

:3POP ha INTO RO 

i3CLEAN PARTIAL FROM STACK 
7;SET A TERMINATOR 

33 TYPE UP THRU THE BAD CHAR. 
3;°" 6 cr" g "9" 

ze TRY AGAIN 

7;HIGH ORDER BITS GO HERE 
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3799 -SBTTL TRAP DECODER 
SReRRReReeeeeeeeeeeeterereredereeeeeereeteeeeereneeneererereeneree 
;*THIS ROUTINE WILL PICKUP THE Lover are OF is “TRAP’’ INSTRUCTION 
S®AND USE IT TO INDEX THROUGH THE T TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED mos THEN USING. THE ADDRESS OBTAINED IT WILL 


**G0 TO THAT ROUTIN 
027550 010046 $TRAP: MOV =(S$P) sSAVE RO 
027552 016600 000002 MOV rep) RO 33GET TRAP ADDRESS 
027556 005740 TST =(RO) ‘BACKUP BY 
027560 111000 MOVB (RO), RO :3GET RIGHT BYTE OF TRAP 
027562 006300 ASL RO :POSITION FOR INDEXING 
027564 016000 027604 HOV STRPAD(RO) ,RO 3 INDEX TO TABLE 
027570 000200 RTS RO GO TO ROUTINE 
;THIS 1S USE TO HANDLE THE “GETPRI RA MACRO 

027572 011646 $iRAP2: MOV (SP) ,-(SP) s;MOVE THE PC DOWN 
027574 016666 000004 000002 MOV 4(SP5,2¢SP) ::MOVE THE PSW DOWN 
027602 000002 RTI S:RESTORE THE PSW 

.SBTTL TRAP TABLE 

:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 

‘*BY THE STRAP INSTRUCT ION 

ROUT INE 
027604 027572 $TRPAD: .WORD  STRAP2 
027606 025032 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
027610 025424 STYPOC :;CALL=TYPOC TRAP +2 (106402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
027612 025400 STYPOS ::CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
027614 025440 STYPON ::CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST. CALL) 
027616 025636 STYPDS ::CALL=TYPDS | TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
027620 025626 STYPDE ::CALL=TYPDE | TRAP+6(104406) TYPE DECIMAL NUMBER GREATER THAN 32767 
027622 026522 SGTSWR ::CALL=GTSWR | TRAP+7(104407) GET SOFT-SWR SETTING 
027624 026422 SCKSWR ::CALL=CKSWR | TRAP+10(104410) TEST FOR CHANGE IN SOFT-SWR 
027626 026740 SRDCHR ::CALL=RDCHR | TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE 
027630 027060 SRDLIN ::CALL=RDLIN TRAP+*12(104412) TTY TYPEIN STRING ROUTINE 
027632 027410 SRDOCT ::CALL=RDOCT = TRAP+13(104413) READ AN OCTAL NUMBER FROM TTY 
027634 027232 SRDDEC ::CALL=RDDEC  TRAP+14(104414) READ A DECIMAL NUMBER FROM TTY 
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3800 -SBTTL SCOPE HANDLER ROUTINE 
OTT TIiiii ii iiitttiiitii iii 
;*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
s*AND LOAD THE 43.3 Ary (STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
[®AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
; *THE SWITCH SPT IONS oa teete BY THIS ROUTINE ARE: 
3*SWi4= : LOOP ON $0 





*SW09=1 tooP ON ERR 
site LOOP ON fest. IN SWR<6:0> 
SCOPE ; SCOPE=10T 

027636 032777 001000 151474 iscope: BIT #81109, aguR ;:LOOP ON ERROR? 
027644 001406 BEQ IF NO 
27646 005737 001312 TST SERTTL i HSE IF THERE WERE ANY ERRORS YET 
027652 001403 BEQ 1$ IF NOT YET 
027654 013716 001310 MOV SLPERR, (SP) £7 FUDGE RETURN 
027660 000002 RTI : | RETURN 
27662 032777 040000 151450 1S: BIT #BIT14,aSWR 33LO0P_ON TEST? 
027670 001403 BEQ $ ‘BR IF NO 
027672 013716 001306 MOV SLPADR, (SP) : FUDGE RETURN 
027676 000002 RTI 
027700 105737 002706 2s: TSTB —« EOPLOC ‘ie Test TO SEE IF EOP'S ARE TO PRINT 
027704 001043 BNE 6$ 88 BRANCH 
027706 105737 030707 TSTB CHARCT 88 SEE IF A CHARACTER WAS ey IN A PRINT ROUTINE 
027712 001406 BEQ 3$ :8& BRANCH TO CHECK KEYBOARD IF 
027714 113737 030707 002706 MOVB CHARCT,EOPLOC :8& MOVE THE CHAR RACTER TO FOPLOC 
027722 105037 030707 CLRB = CHARCT 88 CLEAR THE LOCATION 
027726 900411 BR 4$ ibe BRANCH TO LOE CK THE CHARACTER 
027730 105777 151410 3$: TSTB. 3s aS TKS 768 SEE IF EOP REQUESTED 
027734 100055 BPL :@& BRANCH IF NOT 
027736 117737 151404 002706 MOVB § a$TKB,EOPLOC :8& GET CHARACTER 
027744 142737 000200 002706 BICB #200,€0PLOC 788 CLEAR PARITY BIT 
027752 122737 000030 002706 4$: CMPB  —s-« #30, EOPLOC 308 SEE IF A (*x) 
027760 001406 BEQ *8& BRANCH IF IT IS 
027762 113737 002706 030707 MOVB EOPLOC,CHARCT :88 MOVE CHARACTER BACK TO CHARCT FOR POSSIBLE FUTURE USE 
027770 105037 002706 CLRB = ENPLOC 788 CLEAR THE LOCATION 
027774 000435 BR 8g *8& BRANCH TO START SCOPE ROUTINE 
027776 104401 030326 5$: TYPE »HAKTPR 308 TYPE: ‘HIT ANY KEY TO OBTAIN A PROGRESS REPORT, $ 

88 ‘ENTER (*X) TO RESUME EOP’ *s' 

88 "ENTER THE KEY REPEATEDLY, AS RESETS DONE IN THE D 

388 "MAY CLEAR THE CHARACTER BEFORE THE TESTS FOR THE 
030002 105337 002706 DECB — EOPLOC : “x ANOTHER CHARA 
030006 105037 030707 CLRB  —- CHARCT 88 CLEAR ANY CHARACTER THAT may BE THERE 
030012 000426 BR 8S [88 BRANCH TO START SCOPE R 
030014 105737 030707 6$: TSTB = CHARCT [08 SEE IF A CHARACTER WAS INPUTED IN THE TYPE ROUTINE 
0300 001011 BNE [88 GO TEST THE CHARACTER IF SO 
030022 105777 151316 TSTB STKS 88 SEE IF CHARACTER WAITING 
0300 1000 BPL [68 BRANCH IF NOT | 
0 11 151312 030707 MOVE aSTKB CHARCT [88 MOVE THE CHARACTER FOR TESTING | 
030036 16¢7 ? 200 030707 BIB is, 00, CHAR 788 CLEAR THE PARITY BI 
050044 W207 7 030707 73: CMPB CHARC : SEE IF AN ANOTHER (*X) WAS INPUTED 
030054 1050 ? CLRB FoPLoc 308 CLEAR for put 1, RESUME EOP MESSAGES 

104401 TYPE EOPRSM 88 TYPE OD'S WILL RESUME PRINTING 

0 105037 30 0 ccrB =-s CART ; RAKE ‘ cukeacten wee ne tnine ELSE 
30070 105737 707 83: TSTB = CHARCT “88 SEE IF A CHARACTER IS WAITING 
030074 001410 BEQ $ : H AROUND (*Y) TEST IF NOT 
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SCOPE HANDLER ROUTINE SEQ 0144 
030076 122737 000031 030707 CMPB 0s #31, CHARCT :8& IS THIS A (*Y) (REQUEST FOR RUN SUMMARY) 
030104 901004 BNE 9$ [88 BRANCH IF NOT 
030106 004737 003170 JSR PC, jPIcart *8& GO TO SUBROUTINE TO PRINT SUMMARY 
030112 105037 030707 tire CHARCT $88 CLEAR THE CHARCT LOCATION SO SUMMARY NOT REPEATED 
030116 104410 CKSWR “TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER 

jabeaastant OF CODE FOR THE XOR testeRssees 
030120 000416 $xTS 6$ i 1F RUNNING ON THE “XOR' TESTER CHANGE 

ieTHLS INSTRUCTION TO A "NOP’' (NOP=240) 

030122 013746 000004 MOV @#ERRVEC, war ::SAVE THE CONTENTS OF THE ERROR VECTOR 
030126 012737 030146 000004 MOV WSS,QNERRVEC © 3 ;SET FOR TIMEOUT 
030134 005737 177060 TST 37177080 ‘TIME OUT ON XOR? 
030140 012637 000004 MOV (SP) +, a#ERRVEC ; :RESTORE THE ERROR VECTOR 
030144 000444 BR SSVLAD 3:60 TO THE NEXT TEST 
030146 022626 S$: CMP (SP)+, (SP)¢+ [CLEAR THE STACK AFTER A TIME OUT 
030150 012637 000004 MOV (SP)+, @#ERRVEC $ RESTORE THE ERROR VECTOR 
030154 000432 BR 7$ LOOP ON THE PRESENT TEST 
030156 6$:;###AHEND OF CODE FOR THE XOR TESTERAAMA 
030156 032777 000400 151154 BIT #B1T08,aSWR ; LOOP _ON SPEC. TEST? 
030164 001432 BEQ =-—s«4S : F NO 
030166 005046 CLR -($P) [CLEAR A TEMP. LOCATION 
030170 117716 151144 MOVB aSWR,(SP) SIPICKUP THE DESIRED TEST NUMBER 
030174 042716 000200 BIC #SSWRMK,(SP) | ::MASK OUT UNDESIRED BITS 
030200 001416 BEQ [:BRANCH IF BAD TEST NUMBER IN SwWR 
030202 022716 000037 CMP #37, (SP) 33CHECK THE NUMBER IN TH 
030206 002413 BLT 8$ S:BRANCH IF TEST NUMBER IS OUT OF RANGE 
030210 011637 001302 MOV (SP) ,STSTNM :: UPDATE THE TEST NUMBER IN $TSTNM 
030214 011637 001414 MOV (SP) ,STESTN be UPDATE THE TEST NUMBER IN STESTN 
030220 5316 DEC (SP) : BACKUP BY 
0302 316 ASL (SP) rae TRE TEST NUMBER AS AN INDEX 
030224 062716 030752 ADD #SSWOSTBL,(SP) ;;FORM THE ADDRESS OF TEST POINTER 
030230 013637 001306 ; MOV a(SP)+,$LPADR 3;SET LOCP ADDRESS i DESIRED TEST 
030234 000426 F BR SOVER 3366 LOOP ON THE TEST 
030236 005726 id 8$: TST (SP)+ :CCEAN THE BAD TEST NUMBER OFF OF THE STACK 
030240 R 2$: 3;TSTB SERFLG : SHAS ” ERROR OCCURRED? ;&& ELIMINATED FOR CZDRLC 
030240 001406 BEQ SSVLAD 
030242 013737 001310 001306 7S: MOV SLPERR,SLPADR err LouP ADDRESS TO LAST SCOPE 
030250 000420 BR SOVER 
030252 105037 001303 4$: CLRB SERFLG :: ZERO THE ERROR FLAG 
030256 105237 001302 SSVLAD: INCB $TSTNM :: COUN T TEST NUMBERS 
030262 113737 001302 001414 MOVB S13thM STESTN SET TEST NUMBER IN APT MAILBOX 
030270 011637 001306 MOV (SP) ,SLPADR SAVE SCOPE LOOP ADDRESS 
030274 011637 001310 MOV (SP) .SLPERR [:SAVE ERROR LOOP ADDRESS 
030300 005037 001376 CLR SESCAPE T;CLEAR THE ESCAPE FROM ERROR ADDRESS 
030 112737 000001 001315 MOVE  #1,$ERMAX “ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
03031 013777 001302 151022 S$OVER: MOV STSTNM,@DISPLAY :;:DISPLAY TEST NUMBER 
030320 013716 001306 MOV SLPADR, (SP) 3 FUDGE RETURN ADDRESS 
030324 000002 RTI RETURN 
030326 136 130 200 HAKTPM: .ASCII /*X/CRLED/HIT AilY KEY TO, OBTAIN A PROGRESS REPORT  /<CRLF> 08 
030402 105 116 124 "ASCII /ENTER (*X) TO RESUME EOP'S AN D_EOD'S/ <CRLF> 
03044 105 116 124 "ASCII /ENTER THE KEY REPEATEDLY, AS RESETS DONE IN THE DIAGNOSTIC/<CRLF> :88 
030542 115 101 131 "ASCIZ /WAY CLEAR THE CHARACTER BEFORE THE TESTS FOR THE CHARACTER/<CRLF> ;&& 
030636 136 130 200 EOPRSM: .ASCIZ /*X/<CRLF>/EOP'S AND E0D'S WILL RESUME PRINTING/<CRLF> At} 
030707 000 CHARCT: .BYTE LOCATION TO HOLD INPUTED CHARACTER 
030710 040 040 124 TESLR: .ASCIZ / TOTAL ERRORS tTNcE LAST REPORT / 88 ERROR MESSAGE FOR SEOP 
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SCOPE HANDLER ROUTINE SEQ 0145 
030738 SSWO8TBL: 
0307 11274 «WORD TST1+30 sSTARTING ADDRESS+30 OF TEST 1 
030754 ers «WORD 13t¢°% sSTARTING ADDRESS*30 OF TEST ¢ 
030756 \36¢ «WORD TST3+30 sSTARTING ADDRESS*30 OF TEST 
0307 012154 -WORD TST4+30 sSTARTING ADDRESS*30 OF TEST 4 
030762 012760 «WORD TST5+30 ZSTARTING ADDRESS*350 OF TEST 5 
0307 013154 - WORD 1516+) SSTARTING ADDRESS+50 OF TEST 6 
0307 013522 -WORD 1S17+30 7 STARTING pete be OF TEST 7 
030770 013700 «WORD 1S110+30 ;STARTING ADDRESS+30 OF TEST 10 
030772 014134 -WORD TST11+30 i STARTING pete te OF TEST 11 
030774 014320 «WORD ABT 3g ZSTARTING ADDRESS*30 OF TEST 12 
030776 014504 «WORD 1$115+30 ZSTARTING ADDRESS*#30 OF TEST 13 
031000 014670 WORD TST14+30 sSTARTING ADDRESS+30 OF TEST 14 
031002 015060 WORD T15+30 SSTARTING ADDRESS+30 OF TEST 15 
031004 015312 WORD TST16+30 sSTARTING ADDRESS+30 OF TEST 16 
031006 015550 WORD 1S117+30 SSTARTING ADDRESS+30 OF TEST 17 
031010 016146 WORD TST20+30 sSTARTING ADDRESS+30 OF TEST 20 
031012 016552 -WORD 1S121+30 sSTARTING ADDRESS+30 OF TEST 21 
031014 017066 D TS122+30 sSTARTING ADDRESS+30 OF TEST 22 
031016 017364 WORD TS123+30 ;STARTING ADDRESS*30 OF TEST 25 
031020 020122 WORD 1S124+30 sSTARTING ADDRESS+30 OF TEST 24 
031022 020424 WORD TST25+30 STARTING ADDRESS+30 OF TEST 25 
031024 020714 WORD 1S126+30 SSTARTING ADDRESS+30 OF TEST 26 
031026 021172 WORD TS127+30 ;STARTING ADDRESS+30 OF TEST 27 
031030 021410 WORD 1S130+30 sSTARTING ADDRESS+30 OF TEST 30 
031032 021676 «WORD 1ST31+30 ;STARTING ADDRESS+30 OF TEST 31 
031034 022026 «WORD 1S132+30 sSTARTING ADDRESS+30 OF TEST 32 
031036 635306 «WORD 18133+30 sSTARTING ADDRESS+30 OF TEST 32 
031040 02271 «WORD 1S134+30 ;STARTING ADDRESS+30 OF TEST 34 
031042 023274 «WORD TS135+30 ;STARTING ADDRESS+30 OF TEST 35 
031044 023572 «WORD 1S136+30 ;STARTING ADDRESS+30 OF TEST 36 
031046 024106 «WORD 1S137+30 sSTARTING ADDRESS+30 OF TEST 37 





SD 
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3801 -SBTTL ERROR HANDLER ROUTINE 
Seeeeeeeeeeeeneeeeeeeeeeeeeeeeeeeeeneeeneneonnetereeeeeeeereneeet 
S*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
S*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
[*AND GO TO SERRTYP ON ERROR 

*THE SWITCH ait oy Bs PROVIDED BY THIS ROUTINE ARE: 





eSWi5=1 ERR 

:*SW13=1 INIBIT ERROR TYPEOUTS 

is$uld=t BELL ON ERROR 

ear LOOP ON ERROR 

*® 

ERROR N s;ERROR=EMT AND N=ERROR ITEM NUMBER 
031050 éERROR: 
031050 104410 CKSWR s; TEST FOR CHANGE IN SOF T-SWR 
031052 105237 001303 7$: INCB = SERFLG 33SET THE ERROR FLAG 
031056 001775 BEQ 7$ [DON'T LET THE FLAG GO TO ZERO 
31060 013777 001302 150254 MOV STSTNM, aDISPLAY S:DISPLAY TEST NUMBER AND ERROR FLAG 

031066 032777 002000 150244 BIT #B1T10.aSWR ::BELL ON ERROR? 
031074 001402 BEQ i$ :iNO - SKIP 
031076 104401 001400 TYPE $BELL 33RING BELL 
031102 005237 001312 1$: INC $ERTTL “COUNT THE NUMBER OF ERRORS 
031106 005237 002714 INC ERRCNT °8& INCREMENT THE ERROR COUN 
031112 011637 001316 MOV (SP) , SERRPC °;GET ADDRESS OF ERROR INSTRUCTION 
031116 162737 000002 001316 SUB #2, SERRPC 
031124 117737 150166 001314 MOVB  aSERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
031132 032777 020000 150200 BIT #81113, aSWR > :SKIP TYPE OUT IF SET 
031140 001002 BNE 20$ S:SKIP TYPEOUTS 
031142 004737 031250 ae JSR PC, SERRTYP ::G0 TO USER ERROR ROUTINE 
031146 122737 000001 001430 CMPB = WAPTENV,SENV =; ; RUNNING IN APT MODE 
031154 001007 BNE 2$ 33NO,SKIP_APT ERROR REPORT 
031156 113737 001314 031170 MOVB SITENB 218 SET ITEM NUMBER AS ERROR NUMBER 
031164 004737 031544 JSR PC, SAT ::REPORT FATAL ERROR TO APT 
031170 21$:  .BYTE 0 
031171 000 "BYTE 0 
031172 000777 22$: BR 22% “:;APT ERROR LOOP 
031174 005777 150140 2$: TST aswR SIHALT ON ERROR 
031200 100002 BPL 3$ ::SKIP IF CONT INUE 
031202 000000 HALT SSHALT ON ERRO 
031204 104410 CKSWR [:TEST FOR CHANGE IN SOF T-SWR 
031206 005737 001376 3$: TST SESCAPE S:CHECK FOR AN ESCAPE ADDRESS 
031212 001402 BEQ ::BR IF NONE 
031214 013716 001376 MOV SESCAPE, (SP) : FUDGE RETURN ADDRESS FOR ESCAPE 
031220 032777 001000 150112 4$: BIT #B1T9,aswR '8 SEE IF WE ARE TO LOOP ON ERROR 
031226 1402 BEQ 5$ [@& BRANCH OUT IF NOT 
031230 013716 001310 a MOV SLPERR, (SP) [8& FUDGE RETURN 
031234 022737 024750 000042 CMP #SENDAD, #42 ; ;ACT-11 AUTO-ACCEPT? 
031242 001001 BNE 6$ ::BRANCH IF NO 
031244 HALT SIYES 
031246 6$: 
031246 000002 RTI : ;RETURN 
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3802 -SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


EeeeeeeeeeNeKeeeeeeeeeeeeeereedeeeeeeeeeaeereeeereeeeereeeeeeeete 

S*THIS ROUTINE USES THE ITEM CONTROL BYTE” (sirens) TO DETERMINE WHICH 
S*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’ (SERRTB), 
js AND Re REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


031250 ERRTY 
031250 010046 “MOV RO,-(SP) :3SAVE_RO 
031252 005000 CLR RO ‘CLEAR RO TO RECEIVE ITEM INDEX 
031254 113700 001314 MOVB a#SITEMB,RO i PICKUP THE ITEM IND 
031260 001004 BNE 1$ [IF ITEM NUMBER IS ZERO, TYPE THE PC OF THE ERROR 
031262 013746 001316 MOV SERRPC,-(SP) 33 SAVE SERRPC FOR TYPEOU 
s;ERROR ADDRESS 

031266 104402 TYPOC ::G0 TYPE--OCTAL ASCII(ALL DIGITS) 
031270 000513 BR 14% ET OUT 
031272 010037 001360 1$: MOV RO, STMPO ‘$e Mo MOVE RO TO STHPO. FOR ry TEST 
031276 042700 000200 BIC #200,R0 :8& CLEAR BIT 7 IF P 
031302 005300 DEC RO 88 MAKE POINTER AN ott DEX 
031304 006300 ASL RO 88 SHIFT TO MULTIPLY BY 10 (OCTAL) 
031306 006300 ASL RO 306 
031310 006300 ASL RO 
031312 105737 001360 TSTB = $TMPO [88 SEE IF 1TER NUMBER IS OVER 200 
031316 100041 BPL 4$ 88 BRANCH F ITEM NUMBER IS LESS THAN 200 
031320 023727 002714 000020 CMP ERRCNT, #20 88 S$ E IF 20 (OCTAL) ERRORS HAVE PRINTED 
031326 002404 BLT 2s 7be ae enen TO PRINT THE ERROR IF LESS 
031330 003073 BGT 14$ 88 on gel rT RETURN IF GREATER - NO MORE DATA IS TO PRINT 
031332 104401 036663 TYPE NOMORE 88 TYPE MESSAGE ANNOUNCING NO MORE PRINTING OF ERRORS 
031336 000470 BR 14$ 788 RANCH FS RETURN 
031340 022737 000001 002714 2%: CMP #1,ERRCNT 388 SEE IF THIS IS THE FIRST ERROR 
031346 001415 BEQ 388 BRANCH IF IT WAS AND GO TYPE ERROR MESSAGE 
031350 123737 001360 031524 CMPB STMPO,MEPITM 208 SEE IF ITEM MATCHES LAST MULTIPLE ERROR 
031356 001011 BNE @ BRANCH IF NOT - NEW HEADER NEEDED 

032777 000200 147752 BIT #BIT7,aSWR [@& SEE IF SWITCH REGISTER git 7 1S SET 
031366 001054 BNE 14$ ‘®& BRANCH TO RETURN IF SWITCH SET 
031370 042700 177400 BIC #177400,R0 [8 CLEAR UPPER BYTE OF RO EXPOSING ITEM BYTE 
031374 062700 002300 ADD #ER200+4 ,RO :8& POINT TO DATA TABLE gent 
031400 000434 BR 9$ :@& BRANCH TO PRINT D 
031402 113737 001360 031524 3$: MOVB STMPO,MEPITM 88 MOVE ITEM NUMBER 10 NePITN FOR POSSIBLE FUTURE USE 
031410 042700 177000 BIC #177060, R0 [8& CLEAR UPPER BYTE OF RO 
031414 062700 000540 ADD #ER200-$ERRTB,RO: 88 ADD 200 BASE POINTER TO RO AND 
031420 000402 BR 5$ :@& BRANCH AROUND ERRCNT CLEAR 
031422 005037 002714 4$: CLR ert ny 88 CLEAR ERRCNT SO MULTIPLE ERRORS GET NEW HEADER 
031426 104401 001405 5$: TYPE  ,$CR :8& TYPE <CRLF> 
031432 062700 001534 ADD ésennte RO :: FORM TABLE POINTER 
031436 012037 031446 MOV (RO)+,6$ PICKUP ‘ERROR ESSAGE" POINTER 
031442 001404 BEQ 7$ i: SKIP TYPEOUT IF NO POINTER 
031444 104401 TYPE 33 TYPE one “ERROR MESSAGE 
031446 000000 6$: ,WORD 0 SERROR MESSAGE’ POINTER GOES HERE 
031450 104401 001405 TYPE  ,SCRLF £1 CARRIAGE RET UUINE FEED" 
031454 012037 031464 7$: MOV (RO)+,8$ PIC ‘DATA ay A POINTER 
031460 001404 BEQ 9% i3SKIP Uy PEQUT IF 2 se. 
031462 104401 TYPE F TYPE THE ‘DATA HEADER 
031464 000000 8$: .WORD 0 P33DATA HEADER" POINTER GOES. HERE 
031466 104401 001405 TYPE  ,SCRLF 33 i CARRIAGE RETURN’ & “LINE FEED" 
031472 011000 9$: MOV (RO) RO ‘DATA TABLE’ POIN INTER 
031474 001407 BEQ AROUND ROUTINE TO TYPE THE DATA IF NONE 
031476 013046 10$: MOV a(rR0)+,-(SP) {PUT OCTAL DATA ON STACK FOR TYPING 
031500 104402 TYPOC ::TYPE AN OCTAL NUMBER 





a 
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031502 005710 TST (RO) ::1S THERE ANOTHER NUMBER? 

031504 001403 BEQ 13% 77BR IF 

031506 104401 035250 TYPE SPACES Si TYPE TWO(2) SPACES 

031512 000771 BR {0$ ::G0 BACK TO PRINT THE OCTAL NUMBER 

031514 104401 001405 13$: TYPE  ,$CRLF <! "CARRIAGE RETURN’ & LINE FEED" 

031520 012600 14$: MOV (SP)+,RO : RESTORE RO 

031522 000207 RTS PC : | RETURN 

031524 000000 MEPITM: .WORD 0 “88 LOCATION TO STORE 200+ ERROR ITEM NUMBER 


oS - 
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CZ 
AP 


CZDRLCO-DRi1 GEN NPR INTFC 
T COMMUNICATIONS ROUTINE 


3803 


031366 112737 000001 
0315 112737 000001 
031542 000403 
031544 112737 000001 
031552 
031552 010046 
031554 010146 
031556 105737 031770 
031562 001450 
031564 122737 000001 
031572 001031 
031574 132737 000100 
031602 001425 

1604 017600 000004 
031610 062766 000002 
031616 005737 001410 
031622 001375 
031624 010037 001424 
031630 105720 


031634 163700 001424 
006200 
031642 010037 001426 


031646 pier 000004 
025032 


105737 031772 
710 001416 

712 005737 001430 
716 

001410 


5037 031770 


o 
Ww 
—é 
a 
SERS $ 
[ss5 
3 
SSNS 
o 
Ww 
—b 
™~ 
= 


031772 000 


3804 


031772 
031770 


031772 


001430 
001431 


000004 


001410 


031702 
000004 


001412 
000004 


-SBTTL APT COMMUNICATIONS ROUTINE 


REAR REARAAEAAAAAEAEAARAEAAAAAAAAAAAAARARAARARE. AeKTHeeEKeKeeteteet 


$ATY1: MOVB 
SATY3: MOVB 


BR 
SATY4: MOVB 
SATYC: 


11$: TST 


128: CLRB 


tS ae 040 


#1,SFFLG 
#1 ,SHFLG 


SAT 

“i, $FFLG 
RO,-(SP) 
R1,-(SP) 
.o 


5 
#APTENV, SENV 
3$ 


#APTSPOOL , SENVM 
3$ 


a4(SP) ,RO 
#2,4(SP) 
each 


RO, $MSGAD 
(RO) )+ 


Sica, RO 


R 
RO, $MSGLGT 
#4, SMSGTYPE 


a4(SP),4$ 
#2,4(SP) 
177776, -(SP) 
PC, STYPE 


SFFLG 

12$ 

sguv 

yagerere 
@4(SP) ,SFATAL 
#2,4(SP) 


SSGTYPE 
FLG 


3:TO REPORT FATAL ERROR 
33TO TYPE A MESSAGE 


3:TO ONLY REPORT FATAL ERROR 


3;PUSH RO ON STACK 
;;PUSH R1_ON STACK 
a tae we A MESSAGE? 


0 
i SOPERATING pers APT? 
: SHOULD’ SPOOL MESSAGES? 
F NOT: BR 


N 
::GET MESSAGE ADDR. 
P RETURN ADDR. 
::SEE IF DONE W/ LAST XMISSION? 
331F NOT: WAIT 
PUT ADDR IN MAILBOX 
;:FIND END OF MESSAGE 


3;SUB START OF MESSAGE 

33GET MESSAGE LNGTH IN WORDS 
;;PUT LENGTH IN MAILBOX 
;;TELL APT TO TAKE MSG. 


:;PUT MSG ADDR IN JSR LINKAGE 
“BUMP RETURN ADDRESS 

> PUSH 199776 ON STACK 

::CALL TYPE MACRO 


+s SHOULD REPORT FATAL ERROR? 
NOT: BR 
3 RUNNING UNDER APT? 
F NOT: BR 
i FINISHED yt MESSAGE? 


GET “ERROR # 
UMP RETURN ADDR. 

:: TELL abi? O TAKE ERROR 
S:CLEAR FATAL FLAG 
>:CLEAR LOG FLAG 
[:CLEAR MESSAGE FLAG 
:3POP STACK INTO R1 

::POP STACK INTO RO 


;;RETURN 

3 3MESSG. FLAG 
;LOG FLAG 

T FATAL FLAG 


SEQ 0149 


CZDRLCO-DRi1 GEN NPR INTFC 
POWER 


DOWN AND UP ROUTINE 


031774 


030062 


oo 
= 


eseecees 
MUIPNVIMIMUNM MONT 


032012 
000340 


031774 


001360 
032062 
120 
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000024 
000026 


000024 
000026 


117 


seeeeeeeeeeneneeeeretereeeeeeeeeeeeeeeeneereneeneeeererereeereeeee 
“POWER DOWN AND UP ROUTINE 

$PWRON: MOV #SPWRUP,PWRVEC ;88 SET UP VECTOR TO RETURN TO THE HALT BELOW 
MO #LEVEL7, PURVEC#2; oh em PRIORITY TO 7 


H LT PROCESSOR 
SPWRUP: MOV #SPWRON,PWRVEC : 88 RESET PURVEC TO PWRON ROUTINE AND 
MOV #LEVEL7 ,PWRVEC #2: :68 PRIORITY 10 7 

STACK, SP “88 R REINITIALIZE THE S$ 
MOV #LEVEL?,-(SP)  :88 SET UP RETURN PRIORITY’ TO 7 AND 
MOV STAGIN, -(SP) $88 MOVE STAGIN ADDRESS 10, STACK AND 


CLR STMPO 788 CLEAR ete LOOP COUNTE 

1$: INC STMPO :@& GIVE TTY TIME TO go oe FROM POWER FAILURE 
BNE 1$ > BRANCH BACK UNTIL ZERO AGAIN 
TYPE , SPOWER :& TYPE THE POWER FAILURE MESSAGE ASCIZED BELOW 


RTI ;8& RETURN TO PROGRAM 
SPOWER: riety <CRLF>/POWER FAILURE - RESTARTING PROGRAM/<CRLF> 
-EV 


SEQ 0150 
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MULTIPLE BOARD DIALOGUE ROUTINE SEQ 0151 
3806 .SBTTL MULTIPLE BOARD DIALOGUE ROUTINE 
3807 seeneeeeeeeeeeeeereneeeeeedeeeedereneeeerenrenreneenetereeeetertees 
3808 $>>>>>>>MULTIPLE BOARD DIALOGUE ROUTINE<<<<<<<< 
3809 Seeeeeeeeeeeeneeeeeeeeeeenetereceeeeeneeneneeeeeneetereeeeerereeres 
3810 032130 012706 001300 MBD: MOV #STACK,SP s INITIALIZE THE STAC ae 
3811 032134 004737 005660 JSR PC, SETTUP :GO INITIALIZE THE COMMON TAGS 
381¢ 032140 104401 036531 TYPE  ,MBDIAL ‘TYPE: ‘MULTIPLE BOARD DIALOGUE’ | 
3813 032144 105037 030707 PROMPT: CLRB = CHARCT ‘CLEAR LOCATION FOR POSSIBLE INPUT DURING PRIN | 
3814 032150 104401 036564 TYPE  ,ECELR ‘TYPE: ‘ENTER COMMAND (CEJDIT, CLIIST, SeSURST CALIBRATION, 
3815 032154 012703 000001 MOV #13 TEXPECT 1 CHARACTER 
3816 032160 004737 002722 JSR PC READ :GO0 READ 1 CHARACTER 
3817 032164 022737 000114 002664 CMP #'L, ANSWER ‘LIST PRESENT TABLE? 
3818 032172 001073 BNE 1$ ‘BRANCH IF NO 
3819 032174 104401 036340 TYPE HEADER STYPE: '# OF START 2-N 
3820 "BOARDS REGADR VECADR w-B P-LEV CYCLE fT 
3821 032200 013737 001474 002720 MOV $DOW0,DDW “SET UP THE DEVICE DESCRIPTOR WORD FOR PRINTING 
3822 032206 013746 002414 MOV QTYBRD,-(SP) | :MOVE NUMBER OF DEVICES TO STACK FOR TYPING 
3823 032212 104405 TYPDS ‘TYPE THE NUMBER of DEVICES 
3824 032214 104401 035253 TYPE  ,SPACE3 [TYPE 3 SPACE CHARACTERS 
3825 032220 013746 002416 MOV REGADR,-(SP) § :MOVE THE DEVICE REGISTER ADDRESS TO THE STACK 
3826 032224 104402 TYPOC ‘TYPE THE DEVICE REGISTER A DRESS 
27 032226 104401 035257 TYPE  ,SPACE6 “TYPE 6 SPACE CHARACTERS 
28 032232 013746 002456 MOV VECADR,-(SP) | :MOVE THE DEVICE VECTOR ADDRESS TO THE STACK 
3829 032236 104403 TYPOS :TYPE THE DEVICE VECTOR ADDRESS 
3830 032240 003 000 .BYTE 3,0 ‘TYPE 3 CHARACTERS, LEADING ZEROS SUPPRESSED 
3831 032242 104401 035266 TYPE  |SPACE7 :TYPE 7 SPACE CHARACTERS 
3832 032246 032737 000001 002720 BIT #B1T0,00W [SEE WHICH W/B STATE FOR BOARDS 
33 032254 001403 BEQ 10$ 60 PRINT W STATE IF 
34 032256 104401 035303 TYPE B :TYPE A 
3835 032262 000402 BR iis :G0 TO NEXT CHECK 
3836 032264 104401 035305 10$: TYPE ,W YPE A 
3837 032270 104401 035266 11$: TYPE  .SPACE7 ‘TYPE 7 SPACE CHARACTERS 
3838 032274 004737 005630 JSR PC ,PNTPRI SPRINT DEVICE PRIORITY 
3839 032300 104401 035266 TYPE SPACE? [TYPE 7 SPACE CHARACTERS 
3840 032304 032737 000002 002720 BIT #B1T1,00W [SEE WHICH 2/N STATE FOR BOARDS 
3841 032312 001003 BNE 12$ :60 PRINT N STATE IF N 
3842 032314 104401 035316 TYPE TWO TYPE A ‘2° 
3843 032320 000402 BR 13s £60 TO NEXT CHECK 
3844 032322 104401 035320 12$: TYPE :TYPE A 
3845 032326 104401 035266 13$: «TYPE SP ACE? TYPE ” SPACE CHARACTERS 
3846 032332 032737 000004 002720 BIT #B1T2,00 :SEE WHICH CABLE STATE ai BOARDS 
3847 032340 001403 __ BEQ 14$ ;G0 PRINT NO CABLE IF NONE 
3848 032342 104401 055312 TYPE YES TYPE ' 
3849 032346 000402 BR iss ;BRANCH TO CONTINUE 
3850 032350 104401 035307 146$: TYPE  ,NO :TYPE "NO" 
3851 032354 104401 035333 15$: TYPE  .CRLF2 STYPE 2 <CRLF>'S 
385 032360 000671 BR PROMPT ‘BRANCH TO phone ANOTHER COMMAND 
3853 0 22737 000122 002664 1S: CMP #'R, ANSWER [RUN PROGRAM 
54 0323 10¢0 BNE 4$ [BRANCH IF 
55 032372 005737 002416 TST REGADR SEE IF iF GAR HAS BEEN LOADED 
0 376 001003 BNE 3§ “BRANCH TO CHECK VECADR IF SO 
5 400 104401 034770 2: TYPE ,MUSTED :TYPE: ‘DEVICE ADDRESS AND/OR VECTOR TABLE NOT SET UP - MUS 
58 032406 000657 BR PROMPT BRANCH BACK FOR PROMPT MESSAGE 
59 03 406 005737 002456 3$: TST VECADR — IF VECADR HAS BEEN LOADED | 
03241 001772 BEQ 2$ ‘a ANCH BACK TO PRINT ERROR MESSAGE IF NOT | 
3861 032414 004737 003360 JSR PC, FIXTBL FILL TABLE | 
2 032420 012737 177777 002670 MOV #-1,MANSIZE “MOVE -1 TO MANSIZE TO INDICATE WE HAVE MANUALLY SIZED | 
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MULTIPLE BOARD DIALOGUE ROUTINE SEQ 0152 
3863 032426 000137 010272 JMP START 7 JUMP TO START 
3864 032432 022737 000105 002664 4%: CMP #'E , ANSWER EDIT TABLE? 
3865 032440 001414 BEQ EDIT BRANCH TO EDIT IF SO 
3866 032442 022737 000102 002664 CMP #'B, ANSWER ENTER BURST DATA LATE CALIBRATION? 
3867 032450 Og 88 BNE PROMPT ;BRANCH TO PROMPT IF COMMAND NOT RECOGNIZED 
3868 032452 005737 002416 TST REGADR ;SEE IF REGADR HAS BEEN LOADED 
$650 83 456 001750 BEQ 2$ ;BRANCH TO ERROR MESSAGE IF NOT 
870 032460 005737 002456 TST VECADR ;SEE IF VECADR HAS BEEN LOADED 
3871 032464 001745 BEQ 2$ ;BRANCH TO ERROR MESSAGE IF NOT 
3872 032466 000137 033612 JMP BOLCR ;JUMP TO BURST DATA LATE CALIBRATION ROUTINE 
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TABLE EDIT ROUTINE SEQ 0153 
73 .SBTTL TABLE EDIT ROUTINE 
874 032472 104401 035433 EDIT: TYPE  ,NOBUT :TYPE: "NUMBER OF BOARDS UNDER TEST: ' 
3875 052476 013746 002414 MOV GTYBRD,-(SP) | :PUT QUANTITY OF BOARDS ON STACK FOR PRINTING 
76 032502 104405 TYPDS 60 PRINT THE QUANTITY OF BOARDS 
77 032504 104401 035276 TYPE  ,SPACEC 
3878 032510 012703 000002 MOV ‘ SEXPECT A ‘oF 2 CHARACTERS 
3879 032514 Mera 000071 002704 MOVB #'S LRGSTC ;MOV ach "9" TO THE LARGEST CHARACTER LOCATION 
3880 032522 004737 002722 JSR PC, READ °60 VREAD CHARACTERS 
3981 0325 6 022703 000002 CMP #2.R3 “SEE IF NON-NUMERIC WAS THE ONLY INPUT 
3882 032532 001017 BNE 2$ ‘BRANCH IF NOT 
3883 032534 022737 000033 002664 CMP #ESC, ANSWER “SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT 
3884 032542 001453 BEQ 5$ ‘BRANCH TO PROMPT JUMP 
3885 032544 022737 000003 002664 CMP WCNTLC. ANSWER :SEE IF USER WANTS TO EXIT (*C) 
3886 032552 001447 BEQ S$ ‘BRANCH TO PROMPT JUMP IF exis REQUESTED 
3887 032554 022737 000015 002664 CMP #CARETN,ANSWER ;SEE IF A <CR> WAS INPUTED 
3888 032562 001412 BEQ 4$ Z1F <CR> USE EXISTING NUMBER 
3889 032564 104401 034307 1$: TYPE ~BONERR sTYPE: ‘ILLEGAL NUMBER (# OTHER THAN 1-16) OR CHARACTER INP 
3890 032570 000740 BR EDIT ‘BRANCH BACK FOR NEW INPUT 
3891 032572 005704 2$: TST RG “CHECK FOR ZERO MODULES INPUT 
3892 032574 001773 BEQ 1$ {BRANCH TO PRINT ERROR MESSAGE IF SO 
3893 032576 022704 000020 CMP #20,R4 ‘SEE IF BOARD NUMBER IS ILLEGAL 
3894 032602 100770 BM! 1$ ‘BRANCH TO PRINT ERROR MESSAGE IF SO 
3895 032604 010437 002414 3$: MOV R4,QTYBRD “MOVE INPUTED NUMBER T 
3896 032610 104401 036204 4$: TYPE ~SDADRS sTYPE: ° STARTING DEVICE ADDRESS: 
3897 032614 013746 002416 MOV REGADR,-(SP) SMOVE THE PRESENT ADDRESS 10 THE trace FOR PRINTING 
3898 032620 104402 TYPOC SPRINT THE ADDRESS 
3899 032622 104401 035276 TYPE  ,SPACEC ‘TY 
3900 O326¢6 0127 3 000006 MOV #6,R EXPECT Maxie 6 CHARACTERS 
901 0326 112737 000067 002704 MOVB #'?, LRGSTC ‘MOV E ASCII " TO THE LARGEST CHARACTER LOCATION 
2 032640 004737 002722 JSR PC,READ 3G0 READ 6 CuanAr ten S 
3903 032644 022703 000006 CMP #6.R3 ‘SEE IF NON-NUMERIC CHARACTER INPUTED 
3904 032650 001022 BNE ay ‘BRANCH IF NOT 
3905 032652 022737 000033 002664 CMP #ESC, ANSWER “SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT 
3906 032660 001704 BEQ EDIT “BRANCH AROUND ESC PRINT AND PREVIOUS PROMPT BRANCH IF SO 
3907 032662 022737 000003 002664 CMP #CNTLC,ANSWER :SEE IF USER WANTS TO EXIT (*C) 
3908 032670 001005 BNE 7$ “BRANCH AROUND PROMPT JUMP IF NOT 
3909 032672 000137 032144 5$: JMP PROMPT + JUMP TO PROMPT A NEW COMMAND 
3910 032676 104401 034432 6$: TYPE ADRERR “TYPE: "ADDRESS INPUTED IS NOT IN THE RANGE 171000 TO 17700 
3911 032702 00074 BR is [BRANCH BACK FOR REINPUT 
3912 032704 02273 000015 002664 /7$: CMP #CARETN, ANSWER ;SEE IF <CR> WAS ONLY C rg INPUTED 
3913 032712 001417 BEQ 10$ TIF <CR> USE EXISTING REG ADDRESS 
3914 032714 000735 BR 4$ “BRANCH BACK - INPUT NOT LEGAL 
3915 032716 022704 171000 8S: CMP #171000,R4 ‘1S ANSWER BELOW 171000 
3916 032722 101365 BHI 6$ :BRANCH TO PRINT LaROR MESSAGE IF IT IS 
3917 032724 022704 177000 CMP #177000,R4 ?1S ANSWER ABOVE 177000 
18 032730 103762 BLO 6$ :BRANCH TO PRINT ERROR MESSAGE IF 
919 032732 032704 000007 BIT #74 ‘TEST TO MAKE SURE A ‘O° IS PRESENT. IN LOWEST OCTAL DIGIT 
20 032736 001403 BEQ 9$ “BRANCH AROUND ERROR MESSAGE TYPE IF SO 
921 032740 104401 034600 TYPE  ,ADLCHR ;TYPE: "ADDRESS INPUTED HAS OTHER THAN O FOR LEAST® 
922 "SIGNIFICANT OCTAL DIGIT 
92 0 744 000721 BR 4$ {BRANCH BACK FOR REINPUT 
924 032746 010437 002416 9$: MOV R4,REGADR SINSTALL NEW # IN TABLE 
925 032752 104401 036150 10$: TYPE  ,SVADRS ‘TYPE: "STARTING VECTOR ADDRESS: 
9 6 3 736 013746 002456 MOV VECADR,-(SP) ;MOVE PRESENT VECTOR TO STACK FOR PRINTING 
927 032762 10440 TYPOS :PRINT THE PRESENT VECTOR ADDR 
928 032764 003 000 BYTE 3,0 VBE 3 CHARACTERS, SUPPRESS LEADING ZEROS 
929 032766 104401 035276 TYPE  ,SPACEC TYP 
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TABLE EDIT ROUTINE SEQ 0154 
3930 032772 012703 000003 MOV #3,R3 sEXPECT ONLY 3 CHARACTERS 
333 0 arr ee 002722 JSR PC -READ *GO READ 3 CHARACTERS 
393 033002 022703 000003 CMP #3.R “SEE IF NON-NUMERIC WAS THE ONLY INPUT 
033006 001015 BNE 11 ‘BRANCH IF NO 
33010 022737 000033 002664 CMP #ESC, ANSWER :SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT 
3035 33016 001674 BEQ 4$ ‘BRANCH TO PREVIOUS PROMPT IF SO 
936 033020 022737 000003 002664 CMP #CNTLC,ANSWER :SEE IF USER WANTS TO EXIT (°C) 
33026 Wel BEQ :BRANCH TO PROMPT JUMP IF SO 
33030 022737 000015 002664 CMP WCARETN,ANSWER ;SEE IF <CR> WAS INPUTED 
33036 4 15$ RANCH IF NO C 


S ooo 
mor 


| 
34 0 
0 
36 0 
937 0 
3938 0 | 
3939 0 ANGE WANTED 
3940 03304 BR 10$ SBRANCH BACK = INPUT WAS pan 
3941 033042 022704 000123 11$: CMP #123,R4 “SEE IF ANSWER IS BELOW 124 
3942 033046 100403 BMI 13$ ‘BRANCH AROUND ERROR MESSAGE IF 
3943 033050 104401 034517 TYPE VECERR sTYPE: ‘VECTOR INPUTED IS NOT A THE RANGE OF 124 TO 777° 
3944 033054 000736 BR {0$ iBRANCH BACK FOR REINPUT 
3945 033056 032704 000003 13$: BIT #3,R4 MAKE SURE LEAST te OCTAL DIGIT IS ‘O° OR ‘4° 
3946 033062 001403 BEQ 148 SBRANCH OVER ERROR PRINTING IF NOT 
3947 033064 104401 034703 TYPE VCLCHR :TY YPE: ‘VECTOR INPUTED SHOULD HAVE ZERO AS LEAST DIGIT’ 
3948 033070 000730 BR {0$ ‘BRANCH BACK FOR REINPUT 
949 0330 : V R4, VECADR ‘INSTALL NEW VECTOR ADDRESS IN TABLE 
1044 : TYPE DR1WOB TYPE: "DRI1-<W OR B (W=0, B=1) STORENT STATE = ° 

3951 033102 013737 001474 002720 MOV $p0W0,0DW “MOVE DEVICE DESCRIPTOR WORD TO DDW 

3952 033110 012737 000001 002710 MOV #BITO.BITTST | :MOVE BIT STATE TO PRINT TO BITTST 

3953 033116 004737 005606 JSR PC,PSTATE ;PRINT CURRENT W/B STATE 

3954 033122 104401 035276 TYPE  ,SPACEC ivy PE: 

3955 033126 012703 000001 MOV #1,R3 Y INPUT 1 CHARACTER 


Ww 
So 
o 
= 
oO 
oe 
Ow 
—~ 
oe 
ws 
Sh td 
=z 
o 


3956 033132 004737 002722 JSR PC,READ 60” READ 1 CHARACTER 

3957 0 $128 005703 TST R3 SEE IF NON-NUMERIC WAS THE ONLY INPUT 

3958 033140 001415 BEQ 16$ ;BRANCH AROUND NON-NUMERIC TESTS IF SO 

000033 002664 CMP #ESC, ANSWER 7SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT 
BEQ 10$ ;BRANCH TO PREVIOUS PROMPT IF SO 

000015 002664 CMP 1 ches namie 3SEE IF USER WANTS NO CHANGE 


022737 
022737 
00141 :BRANCH IF SO 
3963 033162 022737 000003 002664 CMP #CNTLC,ANSWER :SEE IF USER WANTS TO EXIT (*C) 
001640 BEQ 5$ “BRANCH TO PROMPT JUMP IF SO 
000741 BR 15$ “BRANCH BACK = INPUT NOT LEGAL 
3966 033174 005704 16$: TST R4 SCHECK FOR LEGAL INPUT 
3967 033176 001403 BEQ 17% SBRANCH IF OK 
33200 022704 000001 CMP #1,R4 [CHECK FOR ILLEGAL INPUT 
334 BNE 15$ SBRANCH BACK IF ILLEGAL STATE INPUTED 
73 001474 17$: BIC #8170,$00u0 i CLEAR THE BIT TO BE A A LTERED 


IS 0 bwO 
036035 18$: TYPE DEVPRI sTYPE: ‘DEVICE PRIORITY PRESENT LEVEL = 
001474 002720 MOV $00W0, Dow sMOVE DEVICE DESCRIPTOR WORD TO DOW 
005630 JSR PC ,PNTPRI :PRINT DEVICE PRIORITY 


035276 TYPE  ,SPACEC i TYPE: 
000001 MOV #1,R3 ONLY INPUT 1 CHARACTER 
002722 JSR PC, READ G0 READ 1 ¢ 1 CHARACTER 


3968 0 
3969 033204 
3970 Beesue 


eS 


o-oo 
S233 
vy 


o— 
_ 
~™ 
—~ 
SWOOWWOW 
~ sue 


Ww 
Ww 
Ww 


3 


NON-NUMERIC WAS THE ONLY INPUT 
BEQ 198 sBRANCH AROUND NON-NUMERIC TESTS 


mw 
SNe IN 
Wie 
“~ 
(7) 
_ 
so 


E IF NOT 
002664 CMP WESC ANSWER ;SEE IF USER WANTS TO GO ast is PREVIOUS PROMPT 


7 
; R ROMPT I 
737 000003 002664 CMP @CNTLC,ANSWER ;SEE IF USER Sra TO EXIT (*C) 
544 BEQ 26$ sBRANCH IF EXIT WANTED 
7 000015 002664 CMP SCARETN, ANSWER : SEE IF <CR> INPUTED Ae NO CHANGE WANTED 
3 BEQ 208 BRANCH IF NO CHANGE WANTED 
4 BR 18$ ‘BRANCH BACK - INPUT NOT LEGAL 


SRERSRSSF 
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TABLE EDIT ROUTINE SEQ 0155 
987 03331 19$: ASL R4 :PUT PRIORITY IN PROPER POSITION 
988 ; i3 Haein ASL R4 “BY SHIFTING TO THE LEFT 5 PLACES 
989 14 006304 ASL R4 
990 16 006304 ASL R4 
991 033320 3 ASL R4 
3952 0 042737 000340 001474 BIC #LEVEL7,$DDWO  ;CLEAR OLD PRIOR 
399 03 050437 001474 BIS 4,$00wd ‘SET PRIORITY onto DEVICE DESCRIPTOR WORD 
3994 033334 104401 035747 208: ‘TYPE TORNCB ‘TYPE: ‘2 OR N CY CLE BURST (2 CY= 0, N CY¥=1) PRESENT STATE = 
3995 033340 013737 001474 002720 MOV $p0w0,00W SMOVE DEVICE D bese CRIPTOR WORD TO DOW 
996 033346 012737 000002 002710 MOV #BITI,BITTST | :MOVE BIT STATE TO PRINT TO BITTST 
997 033354 004737 005606 JSR PC,PSTATE :PRINT 2/N CYCLE STATE 
3998 033360 104401 035276 TYPE  ,SPACEC TYPE: 
3999 033364 012703 000001 MOV #1,R3 SONLY ONE [CHARACTER TO INPUT 
4000 033370 004737 002722 JSR PC READ *READ 1 CHARACTE 
4001 033374 005703 . tT R3 iSEE IF NON-AUMER C WAS THE ONLY INPUT 
4002 033376 001415 BEQ 21$ SBRANCH AROUND NON-NUMERIC TESTS IF NOT 
4003 033400 022737 000033 002664 CMP #ESC, ANSWER 'SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT 
4004 033406 001704 BEQ 18$ {BRANCH TO PREVIOUS PROMPT IF SO 
4005 033410 022737 000003 002664 CMP #CNTLC,ANSWER :SEE IF USER WANTS TO EXIT (4C) 
4006 033416 001473 BEQ 6 ‘BRANCH IF USER WANTS TO EXIT 
4007 033420 022737 000015 002664 CMP #CARETN, ANSWER :SEE IF USER WANTS NO CHANGE 
4008 033426 001414 BEQ 23$ SBRANCH IF USER WANTS NO CHANGE 
4009 033430 000741 BR 20$ ‘BRANCH BACK = USER INPUT NOT LEGAL 
4010 033432 005704 21$: ‘TST R4 SCHECK FOR LEGAL INPUT 
4011 033434 001403 BEQ 22$ SBRANCH IF OK 
2 033436 022704 000001 CMP #1,R4 SCHECK FOR ILLEGAL INPUT 
4013 033442 001334 BNE 20% SBRANCH BACK IF ILLEGAL STATE INPUTED 
4014 033446 304 228: ASL R4 *SHIFT BIT OVER 1 PLACE 
4015 46 737 000002 001474 BIC #B1T1,$D0W0 *CLEAR OLD STATE 
4016 033454 050437 001474 BIS R4, $DDWO :SET THE USERS INPUTED STATE TO SDDWO 
17 033460 104401 036261 238: ‘TYPE pacts ‘TYPE: "DO CABLE TESTS (NO=0, oes 1) PRESENT STATE = 
018 033464 013737 001474 002720 MOV $p0W0,0 MOVE DEVICE DESCRIPTOR WORD Tf 
4019 033472 012737 000004 002710 MOV reir? OT TTST SMOVE BIT STATE i PRINT TO BIiTst. 
4020 033500 004737 005606 JSR PC,PSTATE :PRINT CABLE STATE 
4021 033504 104401 035276 TYPE  ,SPACEC YPE: 
4022 033510 012703 000001 MOV #1,R : INPUT ONLY 1 CHARACTER 
4023 033514 004737 002722 JSR PC READ GO INPUT 1 CHARACTER 
4024 033520 005703 TST R3 :SEE IF NON-NUMERIC WAS THE ONLY INPUT 
4025 033522 001415 BEQ 24$ ‘BRANCH AROUND NON-NUMERIC TESTS IF NOT 
4026 033524 022737 000033 002664 CMP #ESC, ANSWER *SEE IF USER WANTS TO GO BACK TO PREVIOUS PROMPT 
4027 033532 001700 BEQ $ ‘BRANCH TO PREVIOUS PROMPT IF SO 
4028 033534 022737 000003 002664 CMP @CNTLC,ANSWER :SEE IF USER WANTS TO EXIT (*C) 
4029 033542 001421 BEQ 6 SBRANCH IF USER WANTS TO EXIT 
4030 033544 022737 000015 002664 CMP #CARETN, ANSWER ;SEE IF USER WANTS NO CHANGE 
4031 033552 001415 BEQ 26$ BRANCH IF USER WANTS NO CHANGE 
4032 033554 000741 BR 23$ ‘BRANCH BACK = USER INPUT NOT LEGAL 
403 335 5704 248: TST Ra ‘CHECK FOR LEGAL INPUT 
4034 1403 BEQ 258 BRANCH IF 
4035 3 0 2704 000001 CMP #1,R4 SCHECK FOR ILLEGAL INP 
40 5 13 BNE 238 ‘BRANCH BACK IF ILLEGAL "erate INPUTED 
403 33 304 25$: ASL Rd ‘SHIFT INPUTED BIT OVER 2 PLACES 
40 57 304 ASL RG 
4039 033574 04 3? 000004 001474 BIC #8112, $0DW0 sCLEAR BIT TO BE CHANGED 
4040 033602 050437 001474 BIS R4, $D0W0 ‘SET THE USERS INPUTED STATE TO $DDWO 
4041 033606 000137 032144 26$: JMP PROMPT > JUMP TO GET NEW DEVICE NUMBER 
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BURST DATA LATE CALIBRATION ROUTINE SEQ 0156 
404 .SBTTL BURST DATA LATE CALIBRATION ROUTINE 
404 FRRAAHAAAAAAAAAATAAAAAAAAA TATA AAAAAAKAHAAAAAKKEKAAAAeAKAeAAAAATAATs 
4044 $>>>>>>>BURST DATA LATE CALIBRATION ROUTINE<<<<<<<< 
thee [eeteeeeeneeeeeetereneeeteeeeerenreeeeereeeeenetereeenereeeeerenere 
4 
4047 033612 012737 177777 002670 BDLCR: MOV #1 WANS IZE sMOVE -1 TO MANSIZE 
4048 033620 004737 003360 JSR Pc gf ik :G0 FILL TABLE 
4049 033624 104401 035110 TYPE ‘TYPE: ‘BURST DATA LATE CALIBRATION* 
4050 ;TYPE: ATTACH SCOPE P 
"TO CALIBRATE CERT BOAR TYPE ANY CHARACTER’ 

4052 033630 012737 000001 002544 MOV #8110, DEVMSK SET UP BIT MASK TO TEST S$DEVM POR DEVICES 
4053 033636 012700 002456 MOV VECADR, RO SMOVE VECADR TO RO 
4054 033642 012701 002416 MOV PREGADR-R MOVE REGADR TO R1 
4055 033646 005037 001422 CLR SUNIT [CLEAR SUNIT 
4056 033652 033737 002544 001466 28: BIT DEVASK , SDEVM iCHECK | TO SEE IF DEVICE IS TO BE TESTED 
057 033660 001015 BNE ‘BRANCH IF SO 
4058 033662 005737 002544 TST DEVMSK [SEE IF BIT 15 IS SET 
4059 033666 100004 BPL $ ‘BRANCH TO CONTINUE IF NOT SET 
4060 033670 104401 034377 TYPE  ,BCDONE ‘TYPE: ‘BURST CALIBRATION COMPLETE’ 
4061 033674 000137 032144 JMP PROMPT : JUMP TO PROMPT A NEW COMMAND 

033700 d22021 4$: CMP (RO)+,(R1)+ S INCREMENT THE TWO POINTERS 
4063 033702 006337 002544 ASL DEVMSK SUPDATE DEVICE MAP TEST MASK 

033706 005237 001422 INC SUNIT S INCREMENT UNIT NUMBER 
4065 033712 000757 BR 2$ :60 TEST NEXT BIT OF DEVICE MA 
066 033714 011137 002522 S$: MOV (R1),CSR :PUT UUT CSR ADDRESS INTO SEVICE CSR LOCATION 
4067 033720 062737 000004 002522 ADD #4,CSR [POINT CSR TO CSR ADDRESS 
068 033726 011037 002526 MOV (RO) ,DRINV PUT UUT VECTOR ADDRESS INTO DEVICE DRINV 

9 0337 104401 035076 TYPE DEVICE i TYPE: "DEVICE # ° 

4070 033736 013746 MOV $UNIT,-(SP) [PUT UNIT NUMBER ON STACK FOR TYPEOUT 
4071 033742 104405 TYPDS :GO TYPE THE UNIT NUMBER IN DECIMAL 
4072 033744 104401 035407 TYPE  ,UCAL :TYPE: ° UNDER CALIBRATION’ 
4073 033750 004737 004036 JSR PC, CLENUP : SUBROUTINE TO CLEAR opevice REGISTERS & SET CPU PRI TO 7 
4076 033736 005077 146542 6$: CLR acsr CLR CYCLE BIT 
4075 033760 012737 000077 002660 MOV #77, TIME MOVE WAIT LOOP COUNTER TO TIME 
4076 033766 052777 000400 146526 BIS #CY,acsR SET CYCLE BIT 
4077 033774 005337 002660 7$: DEC TIME :SUBTRACT 1 FROM TIME UNTIL ZERO 
4078 034000 001375 BNE 7$ SBRANCH BACK IF NOT ZERO YET 
4079 034002 105777 145336 TSTB 43s @STKS [1S A CHARACTER WAITING INDICATING USER WANTS TO GO ON? 
4080 034006 10036 BPL 6$ [BRANCH IF NOT 
4081 034010 01773 146622 002660 MOV aTKB, TIME sWASTE THE ge hy CLEARING THE CHARACTER FLAG 
4082 034016 000730 BR 4$ [GO ON TO NEXT BOAR 
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ASCII AND ASCIZ MESSAGES AND LOCATIONS SEQ 0157 


4083 -SBTTL ASCII AND ASCIZ MESSAGES AND LOCATIONS 

4084 0 34 200 \¢ 13% STKIFL: .ASCIZ <CRLF>/STACK IS FULL = DATA MAY HAVE BEEN LOST/<CRLF><CRLF> 

4085 0340 1 131 200 ERCHDR: .ASCII /*Y/<CRLF>/SUMMATION OF ERRORS SINCE START OR LAST REPORT/ 

4086 034154 200 200 198 eASCIZ <CRLF><CRLF>/BOARD # PASS # ERRTTL/<CRLF> 

4087 034211 136 131 2 NODATA: .ASCIZ /*Y/<CRLF>/NO ERROR TOTALS TO REPORT/<CRLF><CRLF> 

4088 034250 040 055 040 ETDEV: .ASCIZ / = TOTAL ERRORS THIS DEVICE = / 

4089 034307 111 114 114 BDNERR: .ASCIZ /ILLEGAL NUMBER (# OTHER THAN 1-16) OR CHARACTER INPUTED/ 

4090 034377 102 125 \s¢ CDONE: .ASCIZ /BURST CALIBRATION COMPLETE/ 

4091 03443 101 104 1 ADRERR: .ASCIZ /ADDRESS INPUTED IS NOT IN THE RANGE 171000 TO_177000/ 

1038 03451 126 105 103 VECERR: .ASCIZ /VECTOR INPUTED IS NOT IN THE RANGE OF 124 

4093 034600 101 104 104 ADLCHR: .ASCIZ /ADDRESS INPUTED HAS OTHER THAN O FOR LEAST SIGNIFICANT OCTAL DIGIT/ 
094 034703 126 105 103 VCLCHR: .ASCIZ /VECTOR INPUTED SHOULD HAVE ZERO AS LEAST DIGIT/ 

4095 034762 074 105 123 ESCAPE: .ASCIZ /<ESC>/ 

4096 034770 200 104 105 MUSTED: .ASCII <CRLF>/DEVICE ADDRESS AND-OR VECTOR TABLE NOT SET UP - / 

4097 035051 115 125 123 eASCIZ = /MUST EDIT FIRST/ 

4098 035071 040 000 LETNCR: .ASCIZ / / 

4099 035073 136 103 000 CNTRLC: .ASCIZ /* 

4100 035076 104 105 126 DEVICE: .ASCIZ /DEVICE # / 

4101 035110 200 102 125 BDLCRM: .ASCII <CRLF>/BURST DATA LATE CALIBRATION/ 

4102 035144 200 101 124 eASCII <CRLF>/ATTACH SCOPE PROBE.../ 

4103 035172 200 124 117 eASCIZ <CRLF>/TO CALIBRATE NEXT BOARD, TYPE ANY CHARACTER/<CRLF> 

4104 035250 040 040 000 SPACES: .ASCIZ / / 

4105 035253 040 040 040 SPACES: .ASCIZ / / 

4106 035257 040 040 040 SPACE6: .ASCIZ / / 

4107 035266 040 040 040 SPACE7: .ASCIZ / / 

4108 035276 040 040 O72 SPACEC: .ASCIZ / : / 

4109 035303 102 000 B ASCIZ /B/ 

4110 Bseen3 127 000 ASCIZ /W/ 

4111 035307 116 117 000 NO: eASCIZ = /NO/ 

4112 035312 131 105 123 YES: eASCIZ = /YES/ 

4113 035316 062 000 TWO: eASCIZ = /2/ 

4114 035320 116 000 N: -ASCIZ / 

4115 035322 102 117 101 BOARD: .ASCIZ /BOARD # / 

4116 035333 200 200 000 CRLF2: .ASCIZ <CRLF><CRLF> 

4117 035336 200 101 114 BCFIN: .ASCIZ <CRLF>/ALL BOARDS CALIBRATED - BEGINNING TEST/<CRLF> 

4118 035407 040 125 116 UCAL: ASCIZ / UNDER CALIBRATION/<CRLF> 

4119 035433 200 116 125 UT: .ASCIZ <CRLF>/NUMBER OF BOARDS UNDER TEST: / 

4120 035472 200 200 104 BRVWPC: .ASCII <CRLF><CRLF>/DIAGNOSTIC HAS DETERMINED THE FOLLOWING ABOUT THE/<CRLF> 

4121 035556 104 122 061 eASCII /DR11-W(S) IT HAS FOUND. USER *MUST* DETERMINE ACCURACY/<CRLF><CRLF> 

4122 035647 040 040 040 -ASCIZ /  BOARD@  REGADR VECADR W-B P-LEV 2-N CY CABLE/<CRLF> 

4123 035747 200 062 040 TORNCB: .ASCIZ <CRLF>/2 OR N CYCLE BURST (2 CY=0, N CY=1) PRESENT STATE = / 

4124 036035 200 104 105 DEVPRI: .ASCIZ <CRLF>/DEVICE PRIORITY PRESENT LEVEL = / 

4125 036077 200 104 122 DRIWOB: .ASCIZ <CRLF>/DRI1-W OR B (W=0, B=1) CURRENT STATE = / 

4126 036150 200 123 124 SVADRS: .ASCIZ <CRLF>/STARTING VECTOR ADDRESS: / 

4127 036204 200 123 124 SDADRS: .ASCIZ <CRLF>/STARTING DEVICE ADDRESS: / 

4128 036237 040 124 105 TSTCOM: .ASCIZ / TESTING COMPLETE/ 

+\¢ 036261 200 104 117 DOCTS: .ASCIZ <CRLF>/DO CABLE TESTS (NO=0, YES=1) PRESENT STATE = / 

4130 036340 200 200 043 HEADER: .ASCII <CRLF><CRLF>/# OF START 2-N CABLE / 
4131 036434 200 10¢ 117 eASCIZ <CRLF>/BOARDS REGADR  VECADR W-B P-LEV CYCLE  TESTS/<CRLF> 
$i 036531 $0 200 115 MBDIAL: .ASCIZ <CRLF><CRLF>/MULTIPLE D DIALOGUE/<CRLF> 

413 tote 00 105 116 ECELR: .ASCIZ <CRLF>/ENTER COMMAND (CEJDIT, CLIIST, CBJURST CALIBRATION, CRJUN): / 
4134 036663 124 110 105 NOMORE: .ASCII /THERE ARE STILL MORE ERRORS, BUT WILL NOT BE PRINTED./<CRLF> 

4135 f5 14h 105 122 196 eASCIZ /ERRORS WILL STILL BE COUNTED AND PRINTED AT THE EOP./<CRLF> 

$138 037037 200 116 117 NODVPR: .ASCII <CRLF>/NO DEVICES RECOGNIZED - DIAGNOSTIC CANNOT BE RUN/<CRLF> 

413 b371$4 122 105 \¢ eASCIZ /RESTART AT 204 IF _A DEVICE IS PRESENT/<CRLF> 

4138 037170 200 050 136 M1: eASCIT = <CRLF>/(*X) INHIBITS EOP'S, (*¥) FOR ERROR SUMMARY/<CRLF> 

4139 037245 125 116 111 eASCIZ /UNIBUS HANG? RESTART AT ADDRESS / 
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ASCII AND ASCIZ MESSAGES AND LOCATIONS SEQ 0158 
4140 037307 200 200103 MIA: .ASCIZ <CRLF><CRLF>/CZDRLCO DRI1 GEN NPR INTFC LOGIC TEST/<CRLF> 
4141 037 104 105 126 BARADR: -ASCIZ /DEVICE ADDRESS 
4142 03740 Ose 04138 FNUMGS CASCLT / TEST NUMBER = /, 
4148 05742 054 040 —120-PASNUM: .ASCIZ /, PASS NUMBER ~ / 
4145 037444 000000 SAV: .WORD 0 
4146 037446 “BLKW 400 
4147 040446 000000 BUFF: WORD 0 
4148 040450 040450 XINBUF: . 
4149 04045¢ “BLKW © 400 
4150 041452 041452 XCHKBU: ; 
4151 041454 “BLKW 400 
4152 042454 042456 CAPNTR: .WORD  CAPSTK LOCATION TO HOLD POINTER FOR CAPTURE STACK 
4153 042456 CAPSTK: .BLKW 600. ZLOCATIONS TO STORE UP TO 150 DECIMAL PASSES AND THEIR ERROR 
4154 044736 000000 ENDSTK: :WORD 0 ZFLAG SIGNALING END OF THE STACK 





— | 





CZDRLCO-DR11 GEN NPR INTFC 
ERROR MESSAGES 


4155 

4156 044740 124 
4157 044766 103 
4158 045022 104 
4159 045070 111 
4160 045121 111 
4161 of BEY 111 
ry «| 04520 111 
416 ott FH 122 
4164 045303 101 
4165 045346 122 
4166 045400 101 
4167 045450 103 
4168 045537 103 
4169 045563 105 
4170 045607 122 
4171 045676 101 
4172 045744 101 
4173 046014 105 
4174 04605 102 
4175 046124 122 
4176 046155 102 
4177 046206 102 
4178 046245 127 
179 046302 106 
046340 104 
4181 046404 102 
118s re8 5 101 
4183 046456 102 
4184 0465 192 
4185 046577 102 
4186 046627 122 
4187 046665 122 
4188 046715 122 
4189 046763 122 
4190 047017 104 
4191 047050 104 
4192 047120 105 
4193 047156 106 
047 103 
4195 047250 124 
0473 104 
4197 047374 105 
4198 047435 127 
4199 047463 102 
00 0475 102 
4201 047520 104 
oshe 047556 102 
203 047 124 
4204 047645 125 
$383 047730 103 
06 047777 104 
4207 050037 06 

4208 050110 


4209 050153 
4210 050203 
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MACRO M1113 27-OCT-80 


~SBTTL 
123° EMI: -ASCIZ 
116 EM2: eASCIZ 
061 EMS: -ASCIZ 
111 EM4: -ASCIZ 
111 EMS: -ASCIZ 
111 EM6: -ASCIZ 
111 EM?: -ASCIZ 
123. EM10: .ASCIZ 
124 EM11: .ASCIZ 
123. EM12: .ASCIZ 
124 EM13: .ASCIZ 
122 EM14: .ASCIZ 
122 EM15: .ASCIZ 
122 EM16: .ASCIZ 
101 EM17: .ASCIZ 
124 EM20: .ASCIZ 
124 EM21: .ASCIZ 
122 EM22: .ASCIZ 
124 EM23: .ASCI2Z 
101 EM24: = .ASCIZ 
1246 EM25: .ASCIZ 
124 EM26: .ASCIZ 
122 EM27: .ASCIZ 
116 EM30: .ASCIZ 
124 EM31: .ASCIZ 
122 EM32: .ASCIZ 
114 EM33: .ASCIZ 
122 EM34: .ASCIZ 
122 EM35: .ASCIZ 
122 EM36: .ASCIZ 
101 EM37: .ASCIZ 
101 EM40: ASCIZ 
101 EM41: ASCIZ 
101 EM42: .ASCIZ 
061 EM43: ASCIZ 
061 EM44: ASCIZ 
122 €M45: .ASCIZ 
116 EM46: .ASCIZ 
122 EM47: .ASCIZ 
101 EM50: .ASCIZ 
061 €EM51: ASCIZ 
120 EM52: .ASCIZ 
122 EM535: .ASCIZ 
122 EM54: .ASCIZ 
104 EMS5: .ASCIZ 
124 EM56: .ASCIZ 
106 EMS7: .ASCIZ 
117 EM60: .ASCIZ 
105 EM61: .ASCIZ 
122 EM62: .ASCIZ 
061 EM65: .ASCIZ 
116 EM65: .ASCIZ 
114 EM66: .ASCIZ 
122 EM202: .ASCI2Z 
122 EM211: .ASCIZ 


0.13 
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ERROR MESSAGES 

/TEST SEQUENCING ERROR/ 

/CANNOT ACCESS DR11 REGISTER/ 

/OR11-B OR W MODE INCORRECT (0=8, 1=W)/ 
/INIT FAILED CLEAR WCR/ 

/INIT FAILED TO CLEA 

/INIT FAILED TO CLEAR BDR/ 

/INIT FAILED TO CLEAR ALL CSR R-W BITS/ 
/RESET FAILED TO CLEAR WCR/ 

/ATTEMPT TO SET ALL WCR BITS FAILED/ 
/RESET FAILED TO CLEAR BAR/ 

/ATTEMPT TO SET ALL BAR BITS TO 1 FAILED/ 
/CSR BIT TEST FAILED (FATAL = DIAGNOSTIC NOT CONTINUED) / 
At sit vee FAILED/ 


/E ST FAILED/ | 
7READY AND MAINTENANCE ARE NOT THE ONLY BITS SET IN CSR/ 


/ATTN AND ERROR FAILED TO SET PROPERLY/ 
/ATTN AND ERROR FAILED TO CLEAR PROPERLY/ 
/ERROR BIT SHOULD HAVE BEEN CLEAR/ 

/BIT PATTERN NOT LOADED PROPERLY IN WCR/ 
CSR WAS NOT SET/ 


B 

/BIT PATTERN TEST FAILED IN BAR/ 

/WCR DATA PATTERN NOT CORRECT/ 
/FUNCTION BIT(S) ARE NOT CLEAR/ 
/DSTAT A, B OR C ARE NOT AS EXPECTED/ 
/BDR 1S NOT CLEAR/ 

/ALL BOR BITS ARE NOT SET/ 

/BDR FAILS TO HOLD A BIT PATTERN 


~ 
o 
Oo 
nm 
~ 
= 
mn 
ow 
> 
z= 
; 
> 
wn 
wn 
m 
=" 
~ 


/ 
/BDR SHOULD NOT HAVE 347) LOADED WITH NEW PATTERN/ 


/BOR PATTERN NOT CORREC 


/READY SHOULD NOT BE SET/ 

/READY WAS CLEARED BUT NEVER SET AGAIN/ 
/READY CANNOT BE SET BY INIT/ 

/OR11 FAILED TO INTERRUPT/ ‘ 
/DR11_ INTERRUPTED, BUT IT SHOULDN'T HAVE/ 
/ERROR BIT S$ NOT / 


/CSR IS _WRONG/ 
he gehts SHOULD HAVE BEEN INHIBITED/ 


WOULD NOT HAVE poy th & SECOND TIME/ 


EXPECTED INTERRUPT DID NOT OCC 
/WCR NOT EQUAL TO ZERO/ 

/BAR IS _WRONG/ 

/BAD DATA IN BDR/ 

/DATA NOT TRANSFERED CORRECTLY/ 
/BUFFER DATA NOT CORRECT/ 

/TOO MANY WORDS WERE TRANSFERED/ 


R 
/UNEXPECTED TRAP OR INTERRUPT TO TRAP ADDRESS BELOW/ 
R AND-OR BAR ARE INCORECT/ 


/CSR_ AND-OR WC 

/OR11 INTERRUPTED AT WRONG LEVEL/ 
/2-W CYCLE BURST SWITCH IN WRONG POSITION/ 
/MULTICYCLE BIT IN THE EIR IS WRONG/ 

/CSR PATTERN NOT C T/ 

/BDR AND-OR WCR AND-OR BAR ARE INCORECT/ 


R BIT SHOULD BE CLEAR 
/FUNCTION BITS DIDN'T INCREMENT IN MAINT MODE/ 
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4211 -SBTTL DATA HEADERS 
4 \¢ 050252 105 130 120 DHI1: eASCII /EXPCTD RECVD/<CRLF> 
4213 050270 1st 105 123 eASCIZ /TEST @ TEST #/ 
4214 050307 124 105 123 DH2: eASCIZ /TEST #@ ERR PC ABRTPC REGISTER/ 
4215 050350 124 105 123 DHS: -ASCIZ /TEST #@ ERR PC EXPMOD ACTMOD CSRADR/ 
4216 050417 124 105 123 DH4: eASCIZ /TEST #@ ERR PC WCRADR WCR 
4217 050463 124 105 123 DHS: -ASCIZ /TEST # ERR PC BARADR BAREXP BARRCV/ 
4218 050532 124 105 123 DH6: -ASCIZ /TEST # ERR PC BDRADR BDRCONTENTS/ 
4219 050576 124 105 123 DH?: -ASCIZ /TEST # ERR PC CSRADR CSREXP CSRCONTENTS/ 
4220 050652 040 040 040 DH14: .ASCII / BIT(S)/<CRLF> 
4221 050701 124 105 123 -ASCIZ /TEST # ERR PC TESTED CSRADR CSREXP CSRCONTENTS/ 
4222 050765 040 040 040 DH16 -ASCII BIT(S)/<CRLF> 
4223 051014 124 105 123 -ASCIZ /TEST # ERR PC TESTED EIRADR EIREXP_ EIRCONTENTS/ 
4224 051100 124 105 123 DH17: .ASCIZ /TEST # ERR PC CSRADR CSREXP CSRCONTENTS 
4225 051154 124 105 123 DH23: .ASCIZ /TEST # ERR PC WCRADR WCREXP WCRCONTENTS/ 
4226 051230 124 105 123 DH26: ASCIZ /TEST # ERR PC BARADR BAREXP BARCONTENTS/ 
4227 051304 124 105 123 DH34: ASCIZ /TEST # ERR PC BDRADR BDREXP BDRCONTENTS/ 
4228 051360 124 105 123 DH43: .ASCIZ /TEST # ERR PC CSRADR CSRCONTENTS/ 
4229 051424 124 105 123 DHSO:  .ASCIZ /TEST # ERR PC WCRADR WCREXP WCRRCV BARADR BAREXP BARRCV/ 
4230 051523 124 105 - 123 DHS6: .ASCIZ /TEST # ERR PC NPRIAD NPRIEX NPRIRC CSRADR/ 
4231 051602 040 040 040 DH57:  .ASCII CHECK CHECK INPUT INPUT/<CRLF> 
4232 051660 124 105 123 -ASCIZ /TEST # ERR PC BUFADR BUFDAT BUFADR BUFDAT CSRADR/ 
4233 051747 040 040 040 DH60: .ASCII DIDNOT/<CRLF> 
4234 051776 124 105 123 -ASCIZ /TEST # ERR PC EXPECT ADRESS CSRADR/ 
4235 052045 124 105 123 DH61: .ASCIZ /TEST # ERR PC WCRADR OLDPC_ TRAP ADR/ 
4236 052116 124 105 123 DH62: .ASCII /TEST # ERR PC WCRADR WCREXP WCRRCV CSREXP / 
4237 052176 103 123 122 -ASCIZ /CSRRCV BAREXP BARRCV/ 
$s38 62666? 124 105 \$3 DH63: .ASCIZ /TEST # ERR PC EXPLVL RCVLVL CSRADR/ 
4239 052274 124 105 123 DH64: .ASCIZ /TEST # ERR PC EXPLVL CSRADR/ 
4240 052333 124 105 123 DH65:  .ASCIZ /TEST # ERR PC CSRADR EIREXP EIRRCV/ 
4241 052402 124 105 123 DH66: .ASCIZ /TEST # ERR PC PATERN CSRADR CSRRCV/ 
4242 052451 124 105 123 DH202: .ASCIZ /TEST # ERR PC CSRADR PATLDD CSREXP CSRRCV/ 
4243 052530 124 105 123 DH203: .ASCIZ /TEST # ERR PC CSRADR PATERN CSREXP_ CSRCONTENTS/ 
4244 052614 124 105 123 DH207: .ASCIZ /TEST # ERR PC PATERN CSRADR_ CSRCONTENTS/ 
4245 052670 124 105 123 DH210: .ASCIZ /TEST # ERR PC WCRADR WCRCONTENTS/ 
105 123 DH211: .ASCIZ /TEST # ERR PC WCRADR WCREXP WCRRCV BDREXP BDRRCV BAREXP BARRCV/ 


4246 052734 124 
4247 


m 
< 
m 
2 
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SEQ 0161 
-SBTTL DATA TABLES 


4248 

4249 053044 001362 001414 000000 DT1: [WORD $TMP1,S$TESTN,O 

4250 053052 001414 001516 00267 D1g: “WORD  $TESTN,SERRPC,OLDPC1,DREG,0 

4251 053064 001414 001316 001362 DT3:  .WORD $TESTN.SERRPC.STMP1,BORW,CSR,0 

4 58 053100 001414 001316 002516 DTS: LWORD $TESTN.SERRPC.WCR,RWCR,O 

4253 053112 001414 001316 002520 DTS:  .WORD $TESTN,SERRPC.BAR.EBAR.RBAR,O 

4256 053126 001414 001316 002524 DT6:  .WORD $TESTN.SERRPC.BDR. 

4255 053140 001414 001316 002522 DT7 WORD  $TESTN.SERRPC.CSR.ECSR,RCSR,O 

4256 053154 001414 001516 002536 DT14 WORD $TESTN.SERRPC.BUT.CSR,ECSR,RCSR,0 

4257 053172 001414 001316 002536 DT16 WORD $TESTN,SERRPC,BUT.CSR,EEIR,REIR,O 

4258 053210 001414 001316 002522 DT17: .WORD $TESTN.SERRPC,CSR.ECSR,RCSR,O 

4259 053226 001414 001316 002516 DT23 WORD $TESTN.SERRPC,WCR,EWCR,RWCR.O 

4260 053240 001414 001316 002520 D126 “WORD  $TESTN.SERRPC BAR, EBAR,RBAR, 

4261 053254 001414 001316 002524 DT34:  .WORD $TESTN.SERRPC.BOR.EBDR.RBDR.O 

4262 053270 001414 001316 002522 D143: .WORD  $TESTN.SERRPC,.CSR.RCSR, 

4263 053302 001414 001316 002516 DT50:  .WORD  $TESTN.SERRPC.WCR,EWCR,RWCR,BAR,EBAR,RBAR,O 
4264 053324 001414 001316 002606 DT56: ~ WORD STESTN, SERRPC ,ANPR1,ENPR1,NPR1,CSR, 

4265 053342 001414 001316 001370 DT57: [WORD $TESTN.SERRPC,S$TMP4,STMP2.STMP5, STMP3,CSR,O 
4266 053362 001414 001316 001364 DT60: .WORD $TESTN.SERRPC,STMP2.STMP3,CSR,O 

4267 053376 001414 001316 002516 ODT61: ~ WORD STESTN, SERRPC,WCR,OLDPC2,BDVECT,0 

4268 053412 001414 001316 002516 DTé2: ~ WORD STESTN, SERRPC ,WCR,EWCR, RWCR,ECSR,RCSR,EBAR,RBAR,O 
4269 053436 001414 001316 002552 DTé63: . WORD STESTN, SERRPC ,ORLEV,LEVEL,CSR,0 

4270 053452 001414 001316 001362 DT64: . WORD STESTN, SERRPC,STMP1,CSR,0 

4271 053464 001414 001316 002522 ODT65: » WORD STESTN, SERRPC,CSR,EEIR,REIR,O 

4272 053500 001414 001316 002604 DT66 WORD  $TESTN.SERRPC.ENPR1,CSR,RCSR,O 

4273 053514 001414 001316 002522 DdDT202 WORD STESTN, SERRPC,CSR,BUT,ECSR,RCSR,0 

4274 053532 001414 001316 002522 DT203: .WORD $TESTN.SERRPC.CSR.S$TMPO,ECSR,RCSR,0 

0332 053550 001414 001316 001362 DT207: .WORD STESTN, SERRPC,STMP1,CSR,RCSR,0 

4276 053564 001414 001316 002516 DT210: .WORD $TESTN.SERRPC.WCR,RWCR, 

4277 053576 001414 001316 902516 DT211: .WORD STESTN, SERRPC ,WCR,EWCR, RWCR,EBDR,RBDR,EBAR,RBAR,O 
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SEQ 0162 


BUS HANG ROUTI 
4278 
4279 053622 
4280 0536 § 
ose) 0536 
S 0536 
ose 053640 
4284 053644 
4285 053646 
4286 053650 
4287 053654 
4288 053660 
4289 053664 
4290 053666 
4291 053672 
4292 053674 


4293 053700 
4294 
4295 


000001 


0 


001416 
001405 
010266 





. SBTTL 
UBHANG: TYPE 
MO 


NOCARE : 


- WORD 
«END 


BUS my ROUTINE 


,BARAD ;TYPE: ‘DEVICE ADDRESS - 
WCR,-(SP) ‘PUT DEVICE ADDRESS ON Stace 
:GO TYPE IT IN OCTAL 
TSNUMB YPE: ‘, TEST o? 
$TESTN,-(SP) | :PUT TEST NUMBER ON STACK 
[GO TYPE IT IN OCTAL 
:TYPE 2 piGiTs. LEADING ZEROS SUPRESSED 


PASNUM TYP 
$PASS2,-(SP)  :MGVE OVERFLOW MUPEER TO THE STACK 


SPASS,-(SP) ;PUT PASS NUMBER ON C 
3;GO TYPE IT is EXTENDED DECIMAL 
» SCRLF ;TYPE A <CRLF 


; WHOA - YOU GOTTA be PROBLEMA, BUDDY! 
JUMP TO RESTART PROGRAM 
SLOCATION FOR USE WHENEVER CYCLE BIT OF CSR IS USED. THIS 
;SHOULD *ALWAYS* BE THE LAST WORD LOCATION IN THIS DIAGNOSTIC 


START1 
0 






ABASE = 172410 
ACOW! = 


000000 
ADLCHR 034600 
ADRERR 034432 
AENV = 000000 


CZDRLCO-DRi1 GEN NPR INTFC 
SYMBOL TABLE 


AVECT1= 000300 
AVECT2= 000000 
8 035303 
BAR B0e2e2 
BARADR 03 399 
BCDONE 034377 
CFIN 035336 
BOFAIL oeeess 
DLC 033612 
BDLCRM 035110 
BDNERR 034307 
DR 002525 
BDVECT 002542 
BEGIN 010466 
BEGINI 011006 
BITTST 002710 
BITO = 000001 
B1T00 = 000001 
B1T01 = 000002 
BITO2 = 000004 
BITO3 = 000010 
B1T04 = 000020 
BITOS = 000040 
B1T06 = 000100 
B1T07 = 000200 
B1T08 = 000400 
B1T09 = 001000 
BIT] = 000002 
BIT10 = 002000 
BIT11 = 004000 
BIT12 = 010000 
BIT13 = 020000 
B1T14 = 040000 
B1T15 = 100000 
BIT2 = 000004 
BITS = 00001 
BIT4 = 000020 
BITS = 000040 
BITé = 000100 
BIT7 = 000200 
B1T8 = 000400 
BIT9 = 001000 
BOARD 035322 
ORW 002610 
BPINIT 004374 
= 000003 
BPTINT 004436 
BPTVCT 000014 
BPTVEC= 00001 
C€ 035472 
BRWAIT 002626 
heey: 
BUF LEN 2622 
BUSERR= atte 
CAPNTR 06954 
CAPSTK 042456 


QO 
or> 
— 
—_ 


o 
ow 
be bs he be eb hhh 
a at tt st st st Ht HH 4 


AAO 
@owwwww 
ee 


CB1T8 


DATCHK 


—-DOoOoCoCoCoooo°ooO 
NOCOCOWOOOCSoO 
NOOCOCOVWUVNVN! 
COOCOOCCONONMANO 


MMAMAMMUMAMAUT 
ONAN NUE 
SALONS NONS & 


MW NOMENON 
MNONMAMUAENMLNMNO 


002600 


SOODSCCCOCOCCOCOCOCOCOOOOOOCOOOOOOOOOoOoOoOO 


046245 


SEQ 0163 


EM3 045022 
430 046302 
—M31 046340 
EM32 0464 
—EM335 046425 
EM34 04645 
—EM35 046516 
M36 046577 
—M37 04662 
EMG 045070 
—M40 046665 
EM41 046715 
EM42 046763 
EM43 047017 
EM44 047050 
—EM4S 047120 
EM46 047156 
—EM47 047233 
mS 045121 
—mSO 047250 
—MS1 047315 
EMS2 047374 
—mS3 047435 
EMS4 047463 
EMSS 0475 
EMS6 047520 
—MS7 047556 
EM6 045152 
—EM60 0476 
—EM61 047645 
EM62 047730 
EM63 047777 
EM65 0500 
EM66 050110 
EM7 0452 
ENDEV 024 
ENDSTK 044736 
ENPR1 002 
EOPLOC 002706 
EOPRSA 0 
FR = 


ERROR = 
ERRVEC= 

ER200 002274 
ESC = 00003 
ESCAPE 034762 
ETDEV 034250 
EWCR 002602 
EXPAND 026154 
FIXTBL 003 
FLAG 002652 


FNC = 000016 
FNCCNT 002654 





000002 


a 


BS OWAWNAI AWW 
=] et ere tet Fe | 


oNun— 





NXTTST 


PNTPRI 005630 
PROMPT 032144 
PRO = 000000 
PR1 = = 000040 
PR2 = 000100 
PRS = 000140 
PR4 = 000200 
PRS = 000240 
PR6 == 000300 
PR7 == 000340 
PS = 177776 
PSTATE 005606 

= 177776 


» 
o 
So 
mm 
o 
nunn 
—— 
Q 
> 
Po 
= 
a 


RDLIN = 104412 
RDOCT 04413 
RDYCHK 002632 

002722 


READ 
REGADR 002416 


wn 

mn 

— 

— 

5 
AABARSSSS 
MAMPI 
MOMIMIPITUO IVP 
AnIWOCOfFNT 


SPACE? 
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mn 

. 

o 

Oo 
nnnnnnnnnnnnnnnnnnnnuan 


n 
£ 
co 
“unin 


w 
NNWWIN H— FMW 
OnNcocoFfso 


COMM S&S LMSW 


Fwnw" 


FESNSNSSS 


SEQ 0164 
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SYMBOL TABLE SEQ 0165 
SAUTOB 001334 SDEVCT 001420 SICNT 001304 SOVER 030312 STMP6 §=©001374 
SBASE 001464 SDEVM 001466 SINTAG 001335 PASS 001416 $™N = 000040 
SBDADR 001322 SDOAGN 024760 SITEMB B31 318 SPASS2 Boerne 001 336 
SBDDAT 0013526 SOTBL 026132 LF 01406 SPASTM He: STPFLG 00135 
SBELL 001400 SENDAD 024750 $SLFLG § 031771 SPOWER 33406 001350 
$CDWi 001470 SENDCT 024566 SLPADR 001306 SPWRON 031774 027550 
SCOW2 001472 SENDMG ogee! SLPERR 001310 SPWRUP 032012 $TRAP2 027572 
SCHARC 025374 SENULL 024764 SMADR1 001442 S$QUES 001404 = 0000 
CKSWR 026422 SENV 001430 SMADR2 001446 SRDCHR 026740 STRPAD 027604 
SCMTAG 0013 SENVA §=©001431 SMADRS 001452 SRODEC Bere ae STSTM 001004 
cmS = SEOP 024532 SMADR4 001456 SROLIN 027060 STSTNM 001302 
SCcM4 = SEOPCT 024560 SMAIL 001410 SRDOCT 027410 STTYIN 027166 
SCNTLG 027202 SERFLG 001303 SMAMS1 001440 $RDSZ = 000007 STYPD 025642 
SCNTLU 027175 SERMAX 001315 SMAMS2 001444 SRTNAD 024762 STYPDE 025626 
1436 SERROR 031050 SMAMSS 001450 $SCOPE 027636 STYPDS 025636 
SCRLF 001405 SERRPC 001316 S4 001454 SSETUP= 000137 $TYPE 025032 
SOBLK 026142 SERRTB 001534 $MBADR 001002 $STUP = 177777 STYPEC 025244 
001474 SERRTY 031250 SMFLG 031770 SSVLAD 030256 STYPEX 025376 
001476 SERTTL 001312 w 027220 $SVPC = 001000 $TYPOC 025424 
$DdW10 001520 SESCAP 001376 SMSGAD 001424 $SWR = 163400 STYPON 025440 
$D0W11 001522 SETABL 001430 SMSGLG 001426 SSWREG 001432 $TYPOS 025400 
SODW12 001524 SETEND 001534 SMSGTY 001410 SSWRMK= 000200 SUNIT 01422 
$DDW15 001526 SFATAL 001412 SMSWR = 027207 $swO8T 030752 SUNITM 010 
$D0W14 001530 SFFLG 031772 SMTYP1 001441 STESTN 001414 SUSWR 001434 
$0DW15 001532 SFILLC 001356 SMTYP2 001445 TKB 001346 SVECT1 001460 
$D0W 001500 SFILLS 001355 SMTYPS 001451 TKS 001344 $VECT2 001462 
$ODW 001502 SGDADR 001320 SMTYP4 001455 STMPO 001360 SXTSTR 0120 
$0004 001504 SGDDAT 001324 SNULL 001354 STMP1 001362 $$GET4= 000000 
$0DWS5 001506 $GET42 024740 S$ 026410 STMP2 001364 $$SwO8= 000040 
DW6 3 001510 GTS 026522 S$NWTST= 000001 STMPS 001366 SOFILL 025623 
$0087 001512 $HD = 000000 SOCNT 025622 $TMP4 001370 » SAV 037444 
$00W8 001514 $HIBTS 001000 SOMODE 925624 $TMP5 001372 -$X = 001000 
SDDWY 001516 $SHIOCT 027546 
- ABS. 053702 


000 
001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 56272 WORDS ( 220 PAGES) 
DYNAMIC MEMORY: 20346 WORDS ( 78 PAGES) 

ELAPSED TIME: 00:12: 

CZDRLC.BIN, CZDRLC.SEQ/-SP/NL:TOC=CZDRLC.MLB/ML,CZDRLC.P11 





